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Foreword 


If you’re like most TI computer users, you've probably 
wondered how to use its sophisticated graphics and sound in 
programs of your own. Now, at last, here’s a book that shows 
you exactly how. 

COMPUTE!'s Guide to TI-99/4A Sound and Graphics 
explores your computer’s sound and graphics capabilities and 
puts them into words that every TI user can understand. From 
simple graphics to complex speech synthesis, every aspect is 
thoroughly covered with step-by-step explanations. Clear, con- 
cise examples show you how specific sound and graphics com- 
mands are used, and longer programs demonstrate how those 
individual commands can be combined into exciting and 
captivating programs. 

As you use this guide, you'll discover a great deal about 
how your TI works. You'll see how displays are produced on 
the screen. You'll learn how graphics characters are created 
and controlled. You'll explore sound effects, music, and even 
speech synthesis. 

To show how sound and graphics techniques can actually 
be used, a number of full-scale programs have also been 
included. These range from ‘Alphabet Invasion,” which chal- 
lenges you to unscramble letters after they are beamed down 
by an alien spaceship, to “Mouse Maze,” a joystick-controlled 
version of cat-and-mouse. “Addition Climber” combines sprite 
graphics and speech synthesis to form a fascinating educa- 
tional game for young children, while ‘Zone Defender” is an 
arcade-style action game that rivals the best for excitement 
and appeal. 

Whether you’re an advanced programmer or a beginning 
computer hobbyist, you'll find this an extremely helpful book. 
With it—and your own creativity—you'll be ready to explore 
the exciting world of TI sound and graphics. 
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Sound and Graphics 


OMPUTE!"'s Guide to TI-99/4A Sound and Graphics is 

written for anyone who owns, or plans to own, the 

Texas Instruments TI-99/4A home computer. It is an 

extremely powerful machine, in spite of its small size, 
and it offers a great many sophisticated features for both 
beginning and advanced programmers. 

But it takes more than features to make a great computer 
system. The key to getting more from any home computer is 
to understand how its features work and how you can use 
them in your programs. 

This book provides you with a step-by-step guide to using 
three of the most exciting features that your TI has to offer: 
graphics, sound, and speech synthesis. The engineers at Texas 
Instruments went to great lengths to place them at your dis- 
posal, and there is no better way to enhance a program than 
by using one or more of them in your programs. 

This book is geared toward users of Extended BASIC. 
Available as a plug-in command module which fits into the TI 
console, Extended BASIC is much more powerful than the 
standard BASIC that’s built-in. There is some overlap between 
the two versions of the language. But since Extended BASIC 
has far greater capabilities, it is better suited to most of the 
techniques and concepts in this book. 

If youre new to programming, you'll find it fun to dis- 
cover the many things that your TI can do. But even if you're 
an experienced programmer, you can expect a surprise or two 
as you work with this guide. 


Graphics 
There are very few programs that would not benefit from the 
addition of graphics. But in spite of the obvious benefits, many 
programmers hesitate to include graphics in their programs. 
They fear that the techniques involved are tricky and esoteric. 
But programming graphics on the TI is not that complicated. 
In fact, it can be a lot of fun. 

Chapter 2 introduces you to the concepts and terminology 
of graphics programming and to nonsprite graphics tech- 
niques. In addition, it includes a short discussion of high- 
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resolution graphics, providing the necessary foundation for 
subsequent discussions of sprites. 

Sprites are graphics characters which, once defined, can ~ 
be manipulated on the screen in a variety of ways. They offer 
a great many advantages over nonsprite graphics. Chapters 3 
and 4 explain how these unique graphics characters are 
defined, displayed, and controlled. 

These chapters are presented in a how-to fashion, 
progressing from basic concepts and terminology to the use of 
advanced techniques. Numerous miniprograms are included to 
illustrate various programming techniques, and all of these 
programs are fully explained. 

Since learning is best accomplished by doing, you should 
type in and try the miniprograms. You'll gain a much greater 
understanding of how graphics techniques work if you can see 
them in operation. 

In addition to the miniprograms, every chapter includes at 
least one much larger program. Each such program uses a 
combination of the techniques discussed in the chapter and is 
accompanied by a detailed explanation of how it works. 

Once you have gone through all the graphics chapters, 
you should be well on your way to using many of the tech- 
niques in original programs of your own. But remember that 
the graphics section covers quite a bit of material. If you start 
skipping around, you are likely to miss some critical point, so 
it’s a good idea to work through the chapters in order. 


Sound 
Another useful feature that your TI has to offer is sound 
generation, which is thoroughly examined in Chapter 5. That 
chapter considers sound primarily as a program enhancement 
device. An educational program, for instance, might include a 
routine to reward a correct answer with a short musical pas- 
sage. Sound has obvious value in games, too. In a space game, 
isn’t it much more dramatic to hear, as well as see, your 
spaceship fire its lasers? These are just two of the many cases 
where your computer's ability to produce sound can add to a 
program’s effectiveness. 

This chapter also shows you how to make music on your 
TI. You don’t know very much about music? That’s OK; the 
basics will all be explained. 

You'll find several complete programs in this chapter too, 
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including one that helps you learn the names of the notes on 
a musical staff. Another program demonstrates your TI’s artis- 
tic abilities by playing a Bach prelude—in three parts! 


Speech Synthesis 

The third major feature discussed in this book is speech syn- 
thesis. The ability to generate speech is a relatively new 
capability for the home computer, and the extra dimension 
that it adds opens up some intriguing possibilities. 

Currently, speech synthesis is found primarily in educa- 
tional programs and in an occasional game. Its use in those 
areas will certainly increase, but there are other applications 
where it may have an even greater impact. For example, you 
hear much these days about so-called ‘‘user-friendly’’ comput- 
ers. Although this phrase has been greatly overused, it takes 
on special significance when you consider speech synthesis. 
After all, what could be more friendly than a computer that 
literally tells you what to do? Imagine a computer that 
reminds a businessman of his appointments, not by listing 
them on a monitor, but by actually speaking to him. How 
about a home computer that reads to the disabled or blind? 
Why not have the ever-patient computer teach Junior how to 
spell? Speech synthesis technology has made all of these 
things possible. 

As mentioned earlier, the main focus of this book is on 
concepts and techniques as they apply to Extended BASIC. 
This provides us with two approaches to using the speech 
synthesizer. One uses Extended BASIC’s resident vocabulary, 
while the other takes advantage of the text-to-speech disk 
software sold by Texas Instruments. Chapter 6 examines both 
and includes several programs which illustrate the concepts 
and techniques described. 


Putting the Pieces Together 

The final chapter consists of seven complete programs, which 
combine the features and techniques discussed in the rest of 
the book, along with a detailed explanation of how the parts 
of each program fit together. 

As you work through the chapters, you will notice that 
most of the program examples are games. Games present one 
of the most obvious uses of the graphics, sound, and speech 
synthesis capabilities of your computer. Though recreation is a 
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major reason to purchase a home computer like the TI, other 
applications can also benefit from the use of the graphics, an 
sound, and speech synthesis. Several nongame programs are 
included to illustrate such applications. 
What You’ll Need 
To effectively use this book, you will need a TI-99/4A com- 
puter, the Extended BASIC command module, and at least a 
black-and-white or monochrome monitor. In addition, the 
following items will be helpful: 
Color monitor or TV Most of the programs deal with multicolor 
graphics. While they can still be run with a 
black-and-white TV or a monochrome mon- 
itor, the effect will be much better in color. 
Joysticks Several of the game programs use these to 
control the action. 
Speech synthesis Chapter 6 is devoted to TI’s speech syn- 
thesizer module. 
Text-to-speech There are two ways to produce speech on 
your TI. One uses the Extended BASIC res- 
ident vocabulary; the other uses this software 
package. 
Peripheral expansion Disks provide an efficient, convenient way to 
box, disk controller save and reuse the programs in this book. Of 
card, and disk drive course, you will have to have a disk drive to 
use the text-to-speech disk software. 
ar) 
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Introduction to Graphics 


omputer graphics can be thought of simply as pic- 

tures drawn on a TV or monitor. They can consist of 

anything from a simple stick man to a complex three- 

dimensional object, and you will find them used in 
applications ranging from games and education to business, 
science, and engineering. 

Computer graphics have been around for quite some time, 
although not with the degree of sophistication available today. 
They first appeared in the mid-1950s, when display devices 
were limited to oscilloscopes or relatively primitive black-and- 
white television-type CRTs. 

Like other aspects of computer science, graphics technol- 
ogy has evolved dramatically over the years. As a result, a 
new vocabulary has been developed to describe various 
aspects of the field. Most of the new terms don’t apply to 
home computers like the TI. But those that do are defined 
here: 


ASCII American Standard Code for Information Interchange. 
This is a standardized code developed by the American 
National Standards Institute (ANSI). It defines a charac- 
ter set (letters, numbers, special symbols) which can be 
used by a wide variety of computers. This gives these 
computers a common thread for talking to each other or 
for using the same peripherals. Your TI uses the ASCII 
character set. 


Pixel A single picture element. Graphics images on a TV or 
monitor are comprised of numerous dots which glow to 
form the image. The pixel is the smallest dot that a com- 
puter can illuminate. 


Resolution The relative clarity and quality of an image displayed on 
a TV set or monitor. It is expressed as a matrix (for exam- 
ple, 256 x 192), usually in pixels, which identifies the 
number of columns and rows available on the screen. If 
you think of the screen as a piece of graph paper, you 
can see that the larger the number of pixels, the better 
the resolution. 
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TI Graphics 


The TI-99/4A has four different modes for displaying charac- 
ters on the screen. They are called graphics mode, multicolor 
mode, text mode, and bitmapped mode. Each serves a particular 
purpose. 

Graphics mode lets you display the full ASCII character set 
as well as define your own characters. Characters are defined 
by an 8 x 8 matrix, and each character can use any two of the 
16 available colors. Graphics mode also gives you access to TI 
sprites. This is the only mode available from BASIC. 

Multicolor mode provides an easier method for drawing 
pictures than does graphics mode. It defines each character on 
the screen as a 4 x 4 matrix rather than as the standard 8 x 8 
matrix. Each character can be assigned a color. This mode also 
allows you to use sprites, but it cannot access the ASCII 
character set. 

Text mode divides the screen into 40 columns, rather than 
32, by defining each character in a 6 x 8 matrix. It is limited to 
one background (screen) color and one dot (character) color. It 
does not support sprites. Text mode is most useful in word 
processing applications. It is used by the Editor / Assembler 
and TI-Writer. 

Bitmap is the highest resolution mode available on the TI. 
It allows you to define two colors for each 8 x 1 pixel group. 
This would allow a single 8 x 8 character to contain all 16 
colors. Although sprites may be used in this mode, the auto- 
matic motion features are not available. This mode is used in 
games such as PARSEC and is accessible from Assembler 
Language. 

This book will center on graphics mode, since it is the 
only one available from BASIC. The other modes were noted 
for background information; for additional information 
concerning them, you should consult the TI Editor/Assembler 
manual. 


TI Screen Characteristics 

The TI-99/4A screen measures 32 character columns by 24 
character rows (Figure 2-1). This gives a total of 768 possible 
character locations. A particular character position on the 
screen is defined by its row and column. For example, the 
character in the first column of row three is located at row 3, 
column 1. 
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Each of the 768 screen positions is made up of an 8 x 8 
matrix, or grid (Figure 2-2), which results in a screen measur- 
ing 256 pixels (dot-columns) by 192 pixels (dot-rows). Simple 
multiplication shows that the screen contains 49,152 pixels: 

8 pixels x 8 pixels = 64 pixels per character 
64 pixels per character x 768 characters = 49,152 pixels 
256 columns x 192 rows = 49,152 pixels 


That’s a lot of pixels. The thing to keep in mind, however, 
is that BASIC cannot access each of those pixels directly. 
Instead, pixels must be accessed indirectly by determining the 
character position to which they belong. For example, if you 
wanted to turn on the pixel at dot-row 50 and dot-column 
151, you would first have to determine the location of that 
pixel within the 32 x 24 character grid. You could do this with 
the following BASIC routine: 


100 WORK=DOTROW/8 

110 IF INT(WORK)=WORK THEN 150 
120 CHARROW=INT(WORK)+1 

130 BITROW =(WORK-— INT(WORK))*8 
140 GOTO 170 

150 CHARROW=WORK 

160 BITROW=8 

170. 

180 . 

190 . 


Line 100 divides the number of dot-rows (50 in our exam- 
ple) by the 8 dot-rows contained in each character-row. Line 
110 determines whether or not the result of that division is an 
integer. If it is, the routine branches to line 150. If the result 
has a fractional remainder, the routine proceeds to line 120 
where the character-row is determined by taking the integer 
portion of the number and adding 1 to it. 

Line 130 determines the bit-row of the pixel within the 8 
x 8 grid by calculating the fractional portion of the character- 
row and multiplying it by 8 (bit-rows per character-row). Line 
140 branches to the end of the routine, since the desired infor- 
mation has already been calculated. Line 150 is processed if 
the result of the division in line 100 is an integer. It simply 
assigns the integer result to CHARROW. Line 160 sets the bit- 
row of the pixel to 8. In this case, no fractional portion of a 
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character-row is involved; thus, the pixel must be located in 
the last bit-row of this character-row. 

The same procedure can be used to determine the character- 
column and the bit-column. Using the pixel in our example 
would result in the following: 


WORK=DOTROW/B 

6.25=50/8 
CHARROW=INT(WORK)+1 
7=6+1 

BITROW =(WORK—INT(WORK))*8 
2=0.25*8 

WORK=DOTCOL/8 
18.875=151/8 
CHARCOL=INT(WORK)+1 
19=18+1 
BITCOL=(WORK—INT(WORK))*8 
7=0.875"8 


Thus, that particular pixel resides at bit-row 2, bit-column 7 
within the 8 x 8 character at character-row 7, character-column 
19. You will soon see the importance of such information. 


Character Definition 

To display a character on the 32 x 24 screen, the TI has to 
know the pattern for that character. The pattern is drawn on 
an 8 x 8 grid. The individual dots, or bits, which are on within 
the grid, determine what the character will look like on the 
screen. 

The TI has a set of these patterns built into ROM (Read 
Only Memory), and the pattern used by a particular character 
is determined by its ASCII character code (Table 2-1). For 
example, you can see from the table that ASCII character code 
65 designates the bit pattern for the letter A. The actual pat- 
tern in the 8 x 8 grid looks like this: 
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Table 2-1. ASCII Character Codes 


ASCII Character ASCII 
30 (cursor) 67 
31 (edge character) 68 
32 (space) 69 
33 ! (exclamation point) 70 
34 ““ (quote) 71 
35 # (number sign) 72 
36 $ (dollar) 73 
37 % (percent) 74 
38 & (ampersand) 75 
39 " (apostrophe) 76 
40 ( (open parenthesis) 77 
41 ) (close parenthesis) 78 
42 * (asterisk) 79 
43 + (plus) 80 
44 , (comma) 81 
45 — (minus) 82 
46 . (period) 83 
47 / (slash) 84 
48 0 85 
49 1 86 
50 2 87 
51 3 88 
52 4 89 
53 5 90 
54 6 91 
55 7 92 
56 8 93 
57 9 94 
58 : (colon) 95 
59 ; (semicolon) 96 
60 < (less than) 97-122 
61 = (equals) 123 
62 > (greater than) 124 
63 ? (question mark) 125 
64 @ (at sign) 126 
65 A 127 
66 B 128-143 


Character 


NX XS<CHNAOQOVOZEOA--TOAMMIN 


[ (open bracket) 
(reverse slash) 

] (close bracket) 
(exponentiation) 
(underline) 


(lowercase letters a—z) 
{ (open brace) 


} (close brace) 


DEL 
(see note) 


Note: ASCII codes 128-143 are undefined in normal opera- 
tion. They are, however, available to Extended BASIC 


programs. 
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But how is such a pattern defined for the computer? The 
first step is to break the 8 x 8 grid into two 4 x 8 sections. The 
off bits (those not appearing on the screen) are assigned a 
value of 0. The on bits (those that will be illuminated to form 
the character) are assigned a value of 1. Then, working left to 
right and top to bottom, the pattern is broken into groups of 
four bits each. This results in 16 groups of 4 bits each (64 bits 
total) and looks like this: 


Bit Values 
0000 0000 
0011 1000 
0100 0100 
0100 0100 
0111 1100 
0100 0100 
0100 0100 
0100 0100 
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Combining all 16 groups, the bit pattern constitutes a 
binary number that looks like this: 


0000000000111000010001000100010001111100010001000 
100010001000100 


You may think that this is an awkward way to describe a 
pattern, and you’re right. Fortunately, there is a better way. 
This 64-digit number can be reduced to just 16 digits by using 
hexadecimal notation. 

The digits of decimal numbers are based on the powers of 
10 (10°=1, 101=10, 10?=100, 103=1000, and so on). Hexa- 
decimal numbers, on the other hand, use the base 16 number 
system. Each digit in a hexadecimal number is based on a 
power of 16 (16°=1, 161=16, 167=256, 163=4096, and so 
on). 

If you think about it, you’ll see that hexadecimal numbers 
need more than ten symbols to represent the individual digits. 
Try to imagine a 16-fingered Martian who regularly uses the 
hexadecimal number system. If he were to count his fingers, 
he would have to use a single-digit name for each of the first 
fifteen fingers before he could count his sixteenth finger as 
“10” ((1 x 16) + (0 x 1)). . 

The letters A through F represent the additional digits 
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required by hexadecimal numbers. As a result, counting from 
1 to 16 would go like this: 


Decimal: 1234567891011 12 13 14 15 16 
Hex: 123456789A BCD E F 10 


What does this have to do with character patterns? 
Remember that there were 16 four-digit binary numbers in the 
pattern. As it turns out, any combination of four binary digits 
can be represented by one hexadecimal digit (24=16). For 
example, the binary number (or bit pattern) 1101 equals D in 
hexadecimal, as shown: 


Powers of 2: 8421 


Bit pattern: 1101 
equals 
1x8 = 8 
1x4=4 
0x2=0 
dd 
13 = D in hex 


If you aren’t comfortable with the math, you can use the 
following table: 


Binary Hex Binary Hex 
0000 = 0 1000 = 8 
0001 = 1 1001 = 
0010 = 2 1010 =A 
0011 = 3 1011 = B 
0100 = 4 1100 = C 
0101 = 5 1101 = D 
0110 = 1110 = E 
0111 = 1111 = 


By looking at the grid one more time, you can now see 
that the pattern for the letter A is 003844447C444444: 


Binary 

= 0000 0000 
= 0011 1000 
= 0100 0100 
= 0100 0100 
= 0111 1100 
= 0100 0100 
= 0100 0100 
= 0100 0100 
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Extended BASIC has an instruction (CALL CHARPAT) 
that will return the hexadecimal pattern for a particular ASCII 
character. You can type in and RUN the following program to 
confirm the pattern for an A: 


100 CALL CLEAR 

110 CALL CHARPAT(65,PAT$) 
120 PRINT PAT$ 

130 STOP 


Defining Your Own Characters 

If you were limited to the standard ASCII character set, you 
wouldn’t have much flexibility in producing graphics on the 
screen. Luckily, the TI gives you a way to define your own 
characters: the CALL CHAR statement. It lets you change the 
pattern for any ASCII character code and is, in effect, the 
opposite of the CALL CHARPAT statement. It has the follow- 
ing format: 

CALL CHAR (character code,pattern identifier) 


Character code is the ASCII character code in which you 
will place the new pattern. It can be either a numeric value in 
the range 32-143 or a numeric variable which contains a value 
of 32-143. 

Pattern identifier is the hexadecimal pattern describing 
what the new character will look like. It consists of a hexa- 
decimal number 0 to 64 digits long, or a string variable which 
contains a hex number 0 to 64 characters long. 

Ordinarily, it takes 16 hex digits to define a character. If 
the hex number you provide is less than 16 digits long, the 
computer assumes the rest of the digits are 0. For example, the 
computer would translate the number 005C11FF1212 into 
005C11FF12120000. If the number is between 17 and 32 digits 
in length, then two consecutive ASCII character codes are 
defined starting with the one indicated by character code. A 
hex number 33 to 48 digits long defines three consecutive 
ASCII character codes; a number 49 to 64 digits long defines 
four. 

The following examples show various ways of using the 
CALL CHAR statement: 


100 CALL CHAR(91,“00327D0056127E12’’) 
100 CALL CHAR(93,“FF003412’’) 
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100 A$ =4444FFE1E1004444” 
110 CALL CHAR(112,A$) 


100 A$ =“ FFFFFFFFFFFFFFFF” 
110 FOR L=91 TO 96 

120 CALL CHAR(L,A$) 

130 NEXT L 


You’re now ready to take all of this information and 
actually design a new character. The 8 x 8 character grid 
below shows how the delta symbol might be defined: 


Binary Hex 
= 0000 0000 = 00 
= 0000 0000 = 00 
= 0000 0000 = 00 
= 0001 1000 = 18 
= 0010 0100 =24 
= 0100 0010 = 42 
| | {| {| | | (i = 1000 0001 = 81 
= 1111 1111 = FF 


The character pattern for this symbol is 
00000018244281FF. The pattern has to be assigned to an 
ASCII character code, so refer to Table 2-1. You can see that 
the codes 48-57 represent numbers, while codes 65-90 repre- 
sent uppercase letters. Since you would most likely want to 
have all of those available, you would pick a code other than 
one in those two ranges. The | (left bracket) is rarely used; 
consequently, character code 91 would be a good choice. 

The following program displays the new character on the 
screen: 


100 CALL CLEAR 
110 CALL CHAR(91,“00000018244281FF”) 
120 DISPLAY AT (10,14):CHR$(91) 

130 GOTO 130 


Line 100 clears the screen. Line 110 defines the new 
character pattern and assigns it to ASCII code 91. Line 120 
DISPLAYs the new character on the screen. The CHR$ com- 
mand is used to display the pattern identified with ASCII code 
91, which in this case is the delta symbol. 

Note that even if you replaced CHR§$(91) in line 120 with 
[, the delta symbol would still appear. There is a simple reason 
for this. When you press a key on the console, the computer 
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associates that key with a particular ASCII code, rather than 
with the symbol on the key. So when you press [, the com- 
puter still interprets this as ASCII code 91, which now con- 
tains a new pattern. Line 130 causes an infinite loop. If you 
didn’t include this, the ASCII code would revert to the left 
bracket when the program ended. 

Many times, of course, the picture you want is larger than 
one character, but the procedure is still much the same. To 
display the robot shown below, you have to define four ASCII 
characters: 


You can see from the diagram that the four patterns are: 


top left 03030301010F3F2F 
top right COCOCO8080FOFCF4 
bottom left 2723070606060606 
bottom right E4C4E06060606060 


By assigning these patterns to ASCII codes 91 through 94, 
the following short program would place four of these robots 
on the screen: 


100 CALL CLEAR 

110 FOR L=1 TO 4 

120 READ A$::CALL CHAR(90+L,A$) 

130 NEXT L 

140 FOR L=5 TO 20 STEP 5 

150 DISPLAY AT(10,L):CHR$(91);CHR$(92) 
160 DISPLAY AT(11,L):CHR$(93);CHR$(94) 
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170 NEXT L 

180 GOTO 180 

190 DATA ’03030301010F3F2F” 
200 DATA “COCOC08080FOFCF4” 
210 DATA “2723070606060606” 
220 DATA “E4C4E06060606060” 


Line 100 clears the screen. Lines 110-130 read the four 
DATA statements, which contain the patterns, and assign the 
patterns to ASCII codes 91 through 94. Line 140 sets up a 
loop which will be executed four times. Line 150 displays the 
top half of the robot by putting ASCII characters 91 and 92 
side by side at row 10 and the column indicated by L. Line 
160 displays the bottom half of the robot in the same fashion 
using ASCII codes 93 and 94. Line 180 is an infinite loop to 
keep the robots on the screen. 

This same method works for any shape defined with four 
characters. Figure 2-3 illustrates two common shapes. Try 
replacing the four DATA statements in the above program 
with any of the patterns indicated in the figure. 


Figure 2-3. Four-Character Shapes 
[Td Bee 
| Pei =| 
me ame 
Be axe 
RE eae 
|_| | | Ty 
[| | TY 
ie [| 
= | 
i L | 
| ae 
a alt 
[| Tt 
Be 86 
PTY Tree tery TT Tt 
PRE RARRE eRe 
DATA “000000183C7E7F7F” DATA “000103070F1F3F7F” 
DATA ‘000000183C7EFEFE” DATA “0080COEOFOF8FCFE” 
DATA ‘3F1F0F0703010000” DATA “7F3F1F0F07030100” 
DATA ““FCF8F0E0C0800000” DATA “FEFCF8FOE0C08000” 
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This method can also be used for shapes which are larger 
than four characters. The only difference is that you have to 
define more characters. Program 2-1, “COMPUTE! Cat,’’ pro- 
duces the display shown in Figure 2-4. Notice that it takes 36 
characters to define the friendly feline. 


Figure 2-4. COMPUTE! Cat 


bipiery 


sberbaiae 


How COMPUTE! Cat Works 
Line(s) 


100 Clear the screen. 


110-130 Read the 36 DATA statements and assign them to 
ASCII character codes 91 through 126. 

140-150 Set up two loops to display six rows and six columns. 

160 Display the ASCII codes 91 through 126 one at a time. 
When R=1, it displays codes 91-96; when R=2, it 
displays codes 97-102, etc. 


170-180 Close the loops. 


190 Display COMPUTE! CAT literal. 
200 Infinite loop. 
210-560 DATA statements containing character patterns. 
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Program 2-1. COMPUTE! Cat 


198 CALL CLEAR 
11@ FOR L=91 TO 126 
120 READ AS :: CALL CHAR(L,A$) 
130 NEXT L 
149 FOR R=l TO 6 
15@ FOR C=l TO 6 
16@ DISPLAY AT(R+9,C+10):CHRS$ (84+(R*6)+C); 
176 NEXT C 
188 NEXT R 
196 DISPLAY AT(18,7):"C OM PUT E I" :: DISPLAY 
AT(28,12):"C A T" 
208 GOTO 280 
219 DATA "@102660408191916" 
228 DATA "OQO8O88COCUEGE3F4" 
230 DATA "@804099097798545" 
248 DATA "G@OGGOOSOOVEGIEA1A2" 
258 DATA "@@01801630307C72F" 
268 DATA "8849682010880808" 
278 DATA "1@1811118A9C1626" 
280 DATA "F8C4820201000000" 
296 DATA "25251513898505uu0" 
380 DATA "A4A4A8C890A0A080" 
310 DATA "1F23414980009095" 
328 DATA "@8@8888850300804" 
33G DATA "2842484248424844" 
340 DATA "QQ9G0HF300G9970812" 
359 DATA "@Q98G6CH1010088848" 
360 DATA "880003040408090A" 
376 DATA "@GOGFOGCOGED1248" 
380 DATA "1442124212421242" 
399 DATA "2@A878A778171016" 
400 DATA "178F27CGO2GD02E11" 
419 DATA "48849494602026283" 
426 DATA "@A111010202020E1" 
430 DATA "E8FOEG93640B7488" 
449 DATA "@4051EE51EE88808" 
458 DATA "1888888808040202" 
468 DATA "GE21108806019000 " 
476 DATA "43814090018E702A" 
488 DATA "E2C18280493897AA" 
499 DATA "708284883 8CHO000 " 
506 DATA "4816181010204046" 
518 DATA "G1BGSOGOSSBGOSGHBGGH" 
520 DATA "GP8H06G1FOBGBGGOG" 
538 DATA "3POFO390CG2G1E91" 
540 DATA "FEFCE99993047886" 
55@ DATA "G@BGH1GEFEGGOSGOGG" 
568 DATA "8BBSGOPGUHDUOBGHH" 
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Using DISPLAY AT 

You should have noticed that several of the preceding exam- 
ple programs used the DISPLAY AT command to place 
characters on the screen. DISPLAY AT is much more versatile 
than either PRINT or DISPLAY. It allows you to format a 
screen by placing characters (standard ASCII or graphics) any- 
where on the 32 x 24 character grid. In addition, it doesn’t 
produce the normal scrolling action associated with the other 
commands. DISPLAY AT has the following format: 


DISPLAY AT(row,column)[BEEP][ERASE ALL][SIZE(numeric 
expression)]:variable list 


The data identified by variable list is displayed on the 32 
x 24 character grid at the location indicated by row and col- 
umn. Items identified in variable list may be numeric vari- 
ables, string variables, numeric or string literals, and ASCII 
character-code patterns returned by the CHR$ function. For 
example: 


100 DISPLAY AT(10,10):A1;“ EQUALS ”;CHR$(45) 


BEEP causes a short tone to sound when the data is dis- 
played. ERASE ALL clears the screen before the data is dis- 
played. SIZE is used to blank the number of characters 
indicated by numeric expression. 


Changing Patterns 

The TI allows you to change patterns dynamically in a pro- 
gram. In other words, the same ASCII character code can be 
used for more than one pattern definition within the same 
program. In fact, it can be used as many times as needed. The 
following short program illustrates this concept: 


100 CALL CLEAR 

110 DISPLAY AT(12,14):CHR$(91) 
120 FOR L=1 TO 4 

130 FOR L2=1 TO 50 :: NEXT L2 
140 READ A$ :: CALL CHAR(91,A$) 
150 NEXT L 

160 RESTORE :: GOTO 120 

170 DATA “1010101010101010” 
180 DATA “006030180C060300” 
190 DATA “000000FFFF000000” 
200 DATA “0003060C18306000” 
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The program displays the standard character pattern 
(open bracket) for ASCII code 91. Line 120 causes the program 
to loop four times. Within the loop it reads the alternate pat- 
terns (the DATA statements) and changes the pattern for 
ASCII code 91. Notice that it is not necessary to reDISPLAY 
the character; it only has to be changed. Line 160 restores the 
DATA statements at the end of the loop, then reinitializes the 
loop. The overall effect is to give this single ASCII character 
code an impression of motion. 


Color 

Character patterns displayed on the screen may contain two 
colors. The patterns themselves may be either characters from 
the standard ASCII character set defined by the TI or charac- 
ters you have defined yourself. The colors may be any two of 
the 16 available (Table 2-2). The command that is used to 
assign these colors is CALL COLOR. It has the following 
format: 


CALL COLOR(character set,foreground color,background 
color) 


Colors are not assigned to individual ASCII character 
codes. Instead, they are assigned to an ASCII character code 
set (Table 2-3). Each set, except set 0, consists of eight ASCII 
character codes. Character set is the set number that identifies 
the eight ASCII characters which will have the assigned color 
combination. As you can see, there is a limited number of sets. 
Consequently, it is important to plan ahead when defining 
your own characters. You should, for example, use ASCII 
character codes that fall within the same set when defining 
characters that will have the same color. 


Table 2-2. Color Codes 


Color Code Color Code 
Transparent 1 Medium Red 9 
Black 2 Light Red 10 
Medium Green 3 Dark Yellow 11 
Light Green 4 Light Yellow 12 
Dark Blue 5 Dark Green 13 
Light Blue 6 Magenta 14 
Dark Red 7 Gray 15 
Cyan 8 White 16 
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Table 2-3. Character Sets 


Set ASCII codes’ Set ASCII codes 
0 30-31 8 88-95 

1 32-39 9 96-103 

2 40-47 10 104-111 

3 48-55 11 112-119 

4 56-63 12 120-127 

5 64-71 13 128-135 

6 72-79 14 136-143 

7 80-87 


Foreground color is the color assigned to the pixels which 
are on. Background color is the color assigned to the off pixels. 
In many cases, you would want the background color to be 
transparent (#1). You can define colors for more than one 
character set in the same CALL COLOR command. For 
example, 


CALL COLOR(8,2,1,9,7,1,10,6,16) 


assigns a black foreground with a transparent background to 
set 8 characters, a dark red foreground with a transparent 
background to set 9 characters, and a light blue foreground 
with a white background to set 10 characters. 

The CALL COLOR command is also used to assign color 
to sprites. The syntax to accomplish this is similar to that used 
above and is discussed in detail in the next chapter. 

The color of the screen itself can be changed by using the 
CALL SCREEN command. It has this format: 


CALL SCREEN(screen color) 


Screen color is a number from 1 to 16 which represents one of 
the colors in Table 2-2. The command sets all blank positions 
on the screen (those that do not contain characters) to the 
color indicated. The default screen color is cyan (8). 

As you use these two commands, you will discover that 
some color combinations work quite well, but others do not. 
Black on cyan, for example, provides excellent visible contrast; 
blue on red, on the other hand, appears smeared and murky. 
The best way to determine good combinations is to 
experiment. 

Earlier in this chapter you saw how character patterns 
could be changed dynamically within a program. Character 
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and screen colors can also be changed this way. The following 
short program illustrates this capability, as well as the color 
combinations available: 


100 CALL CLEAR 

110 DISPLAY AT(10,12):“COMPUTE!” 
120 FOR L=1 TO 16 

130 CALL SCREEN(L) 

140 FOR L2=1 TO 16 

150 CALL COLOR(5,L2,1,6,L2,1,7,L2,1) 
160 FOR D=1 TO 400 :: NEXT D 

170 NEXT L2 :: NEXT L 


Bars and Lines 

Thus far, discussion has centered on defining and displaying 
each individual character on the screen. Often, however, you 
will want to use a single character many times—for instance, 
when you are drawing bars, lines, or diagonals. 

Your TI has two commands which were specifically 
designed for this type of programming. They are CALL 
HCHAR and CALL VCHAR. CALL HCHAR lets you repeat a 
single character horizontally across the screen; CALL VCHAR 
lets you repeat a single character vertically. They have the 
following format: 


CALL HCHAR(row,column,character-code,repetition) CALL 
VCHAR(row,column,character-code,repetition) 


The character’s initial location on the 32 x 24 screen grid is 
defined by row and column. Row has a value from 1 to 24; col- 
umn has a value from 1 to 32. Character code is the ASCII 
character code used to define the desired pattern. Repetition 
indicates the number of characters that will be placed on the 
screen horizontally or vertically. The four parameters may be 
numeric literals or numeric variables. The following examples 
illustrate how these commands may be used: 


100 CALL CLEAR 

110 CALL CHAR(96,“FFFFFFFFFFFFFFFF’’) 
120 CALL HCHAR(3,1,96,10) 

130 GOTO 130 


100 CALL CLEAR 
110 CALL CHAR(96,""FFFFFFFFFFFFFFFF”) 
120 CALL CHAR(97,"0000FFFFFFFF0000”’) 
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130 CALL HCHAR(10,4,96,18) 
140 CALL VCHAR(2,19,97,18) 
150 GOTO 150 


100 CALL CLEAR 
110 CALL CHAR(96,“000000FFFF000000”) 
120 FOR L=1 TO 4 

130 CALL HCHAR(L*2,L+6,96,L*3) 

140 NEXT L 

150 GOTO 150 


These commands are very useful programming tools. 
Depending on the character pattern, they can be used to draw 
solid bars, lines, chains, rectangles, screen borders—in fact, 
anything that requires repetitive characters. In addition, they 
allow you to use all 32 columns on the screen. PRINT and 
DISPLAY let you use only 28 columns (columns 3 through 
30). 

The following example, ‘Histogram,’ demonstrates how 
these two instructions can be used to write a program. The 
program produces a bar graph showing computer sales over a 
12-month period. You may enter values yourself or request 
the demonstration mode which generates values randomly. If 
you enter the values, the program will automatically pick the 
correct scale. The maximum value you may enter is 10000. 


How Histogram Works 

Line(s) 

100 Clear the screen. 

110 DIM statement for the 12 values allowed on the bar 
chart. 


120-190 Define the character patterns used in the program. 
ASCII codes 96-99 define the characters used for the 
actual bars. Code 96 is a complete block; 97 is a 3/4 
block; 98 is a 1/2 block; and 99 is a 1/4 block. Using 
four blocks in quarter steps allows higher resolution on 
the bars. ASCII code 43 defines the Y-axis and tick 
marks. Codes 104 and 112 define the horizontal mark- 
ing lines. 

200 Assign colors to the various characters. 

210-250 Display a selection menu. 

260-280 Draw X and Y axes and display literals. 


290-300 Draw the marking lines in two colors. 
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310-320 Display X and Y axes identification. 


330 


Determine the maximum value to be graphed. This is 
used to determine the scaling. 


340-360 Determine scale. 
370-450 Draw the bars for the values on the graph. Lines 410- 


460 


440 determine which 1/4 block size is to be used on 
the top of each bar to make it more accurate. 


Display message indicating the scale used. 


470-500 End of program control. 
510-590 Accept values from keyboard. 
600-630 Generate random values for demonstration. 


Program 2-2. Histogram 


199 


CALL CLEAR 

DIM V(12) 

CALL CHAR(96, "FFFFFFFFFFFFFFFF") 

CALL CHAR(97, "O6Q@UOFFFFFFFFFFFE ") 

CALL CHAR(98, "G@UVOGOOUSFFFFFFFF") 

CALL CHAR(99, "@GOGOOUUOGOSFFFF" ) 

CALL CHAR(43, "FFFOFOFOFOFOFUFD " ) 

CALL CHAR(194, "FFOVGGGOGHGGBVOO" ) 

CALL CHAR(112, "FFOGGLOOYHGOKUOO " ) 

CALL CHAR(42, "FFFFFFFFFFFFFFFF") 

CALL COLOR(9,5,1,10,3,1,11,7,1) 

DISPLAY AT(4,1):"1 - ENTER VALUES MANUALLY" :: 
DISPLAY AT(6,1):"2 - RUN DEMONSTRATION" 
DISPLAY AT(8,1): "WHICH ONE? -->_" 

ACCEPT AT(8,15)VALIDATE("12")SIZE(-1)BEEP:OPT 

ON OPT GOSUB 518,609 

CALL CLEAR 

DISPLAY AT(2,18):"COMPUTER SALES" :: DISPLAY A 

T(4,13):"BY MONTH" 

CALL HCHAR(18,6,42,25) 

CALL VCHAR(8,6,43,10) 

FOR L=8 TO 12 :: CALL HCHAR(L,7,1604,24):: NEXT 
L 

FOR L=13 TO 17 :: CALL HCHAR(L,7,112,24):: NEX 

T i 

DISPLAY AT(19,6):"7 PMAMJJIASON D" 


DISPLAY AT(8,1):"10";3:: DISPLAY AT(13,2):"5";: 
: DISPLAY AT(17,2):"l1"; 

MX=0 :: FOR L=l TO NV :: MX=MAX(V(L),MX):: NEX 
TL 


29 


Introduction to Graphics EERE 


340 
358 


366 
376 
380 
390 
400 
410 


420 


430 


446 
450 
468 


479 
480 
49 
586 
510 
526 
530 
540 
556 
569 


IF MX<=18 THEN S=1l 
IF MX>?16 AND MX<=19@96 THEN S=108 :: LITS="HUND 
REDS" 

IF MX>10@@ THEN S=1006 :: LITS="THOUSANDS" 

FOR L=l1 TO NV 

BAR=INT(V(L)/S):: FR=V(L)/S-INT(V(L)/S) 

CALL VCHAR(18-BAR,6+(L*2),96, BAR) 

FRP=18-BAR-1 

IF FR>=.15 AND FR<.35 THEN CALL VCHAR(FRP,6+(L 


*2),99,1) 
IF FPR>=.35 AND FR<.65 THEN CALL VCHAR(FRP,6+(L 
*2),98,1) 
IF FR>=.65 AND FR<.9 THEN CALL VCHAR(FRP,6+(L* 
2),97,1) 


IF FR>=.9 THEN CALL VCHAR(FRP,6+(L*2),96,1) 
NEXT L 

IF S>1 THEN DISPLAY AT(21,7):"IN ";LITS;" OF U 
NITS" 

DISPLAY AT(24,9):"PRESS ANY KEY" 

CALL KEY(3,K,S):: IF S=@ THEN 486 

CALL CLEAR 

GOTO 219 

CALL CLEAR 

DISPLAY AT(4,1): "NUMBER OF VALUES 1-12? -->" 
ACCEPT AT(4,27)VALIDATE(NUMERIC)BEEP:NV 

IF NV>12 THEN 532 

FOR L=l TO NV 

DISPLAY AT(6+L,1):"VALUE # ";L 


576 ACCEPT AT(6+L,13)VALIDATE(NUMERIC)BEEP:V(L):: 
IF V(L)>19008 THEN 579 

5808 NEXT L 

590 RETURN 

600 FOR L=1 TO 12 

618 V(L)=INT(1+RND*1@) 

628 NEXT L 

630 NV=12 :: RETURN 

Diagonals 


In many cases the bar or line you want to draw is not hori- 
zontal or vertical, but diagonal. One way to draw a diagonal is 
to define each character in the diagonal’s path. Sometimes 
only one character definition is required, as illustrated by the 
first diagonal in Figure 2-5. This character, once defined, is 
repeated for the length of the diagonal. In other cases, more 
than one character definition is required to draw the diagonal, 
and a sequence of characters is repeated along the length of the 
diagonal. 
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Figure 2-5. Drawing Diagonals 


45-degree angle 
Requires one character definition: 


“0102040810204080” 


30-degree angle (approximately) 


Requires three character definitions: 


‘0000010618608000” 
“1860800000000000” 
“0000000000000106” 


20-degree angle (approximately) 


Requires three character definitions: 


“0000000738C00000” 
“031CE00000000000” 
“0000000000010E70” 


45-degree angle with thick line 
Requires two character definitions: 


“070E1C3870E0C080” 
“0000000000000103” 


Introduction to Graphics 
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This method gives you a lot of control over the size and 
resolution of the diagonal. By defining the characters and plac- 
ing them on the screen, you can create diagonal lines, zigzag, 
geometric figures, and the like. 

Sometimes, it is possible to use CALL HCHAR, CALL 
VHCAR, or even DISPLAY AT to draw diagonals. It depends 
primarily on the angle and the degree of resolution desired. 
The following program shows how this might be done. 


100 CALL CLEAR 
110 CALL CHAR(42,”FFFFFFFFFFFFFFFF”) 
120 CALL CHAR(96,“FFFFFFFFFFFFFFFF”) 
130 CALL HCHAR(19,2,96,25) 

140 CALL VCHAR(2,2,96,25) 

150 CALL COLOR(2,5,1) 

160 FOR X=1 TO 18 

170 C=X 

180 Y=X 

190 IF Y>18 OR Y=0 THEN 220 

200 R=18-Y+1 

210 DISPLAY AT(R,C):CHR$(42) 

220 NEXT X 

230 GOTO 230 


The program simply draws an X and Y axis and plots a 
line based on the equation in line 180. As you can see when 
you RUN the program, the line produced is a 45-degree angle 
with low resolution. If you change the pattern for ASCII code 
42 to 0102040810204080, the program will produce a high- 
resolution, 45-degree angle line. 

But what if you wanted to change the equation in line 180 
to Y=2*X? Several things occur as a result of this change. 
First, the high-resolution pattern for ASCII code 42 no longer 
works. It worked originally only because the angle of the line 
was known and the pattern fit that angle. The line represented 
by the new equation, however, has a different angle which is 
unknown. Consequently, the pattern for ASCII code 42 must 
be changed back to all F's. 

The second thing affected by the change is the continuity 
of the line: The line has the correct angle, but it is not 
continuous. This happens because the program draws the line 
by plotting individual points, and the new equation results in 
a greater distance between these plotted points. Increasing the 
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number of iterations in the program loop by adding STEP .5 
to line 160 increases the number of points plotted and, con- 
sequently, decreases the distance between them. The resulting 
line is continuous, but its resolution is quite low. 


Character Concatenation 

There are many cases when consecutive screen columns do 
not contain the same character. For example, assume you had 
five consecutive characters starting at column 1 on row 5 and 
that each character required a different bit pattern. How would 
you handle such a situation? 

There are several possible approaches. You could use five 
CALL HCHAR or DISPLAY AT statements to display the 
characters one at a time, or you could display the characters 
by using the CALL HCHAR or DISPLAY AT in a loop and 
incrementing the column position. 

But there is one other method that is faster and requires 
fewer program lines. The characters can be concatenated into a 
single character string. The TI lets you do this with the 
ampersand symbol. Once the characters are concatenated, you 
can use a single DISPLAY AT to display the entire string on 
the screen. 

The following program, “Plane,” illustrates how the speed 
inherent in this method can be used to simulate motion. A 
four-character airplane, ten-character rope, and eight-character 
sign are concatenated. Forty spaces are concatenated to each 
end of this character-string. By DISPLAYing the string 28 
characters at a time within a loop, and by shifting the starting 
point of the string one place to the right for each iteration, the 
plane appears to fly across the top of the screen. 


How Plane Works 
Line(s) 
100 Clear the screen. 


110-250 Define the characters used in the program. Character 
codes 94-97 define the plane; 98 defines one length of 
rope; 40 defines the,ground; and 128-130 and 
136-138 define the house on the ground. 


260 Assign the colors used by the various characters. 
270-330 Build the seven character strings which make up the 
house. 
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340-370 Build the character string which consists of the plane, 


rope, sign, and blank spaces. The four characters of the 
plane are added to ten repetitions of the rope charac- 
ter, and the word COMPUTE! is added to this. Forty 
spaces are added to each end to allow the plane to 
travel across the screen. 


380 Display the ground on the screen. 

390-410 Display on the screen the strings which make up the 
house. 

420-450 Move the plane, rope, and sign across the screen. This 


460 


is accomplished by repeatedly displaying 28 characters: 


of the string within the loop. The start location in the 
string is moved one position to the right for each itera- 
tion of the loop, thus creating the motion. 


Repeat the process. 


Program 2-3. Plane 


186 
119 
129 
136 
140 


CALL CLEAR 
CALL CHAR(94, "48405F7F7P4F4000 " ) 

CALL CHAR(95, "OOG2FBFFFFFF2070") 

CALL CHAR(96, "O@OOFFFFFFFFOGGG " ) 

CALL CHAR(97, "lE3EFEFEFCCU462@") 

CALL CHAR(98, "OGBBVUOFFOGLOGOBAD " ) 

CALL CHAR(4@, "FFFFFFFFFFFFFFFF") 

CALL CHAR(1@4, "FFFFFFE7E7FFFFFF") 

CALL CHAR(112, "183C7EFFFFFFFFFF " ) 

CALL CHAR(126, "FFBBFFFFBBFFFFBB " ) 

CALL CHAR(128, "FFFFFFFFFFFFFFFF" ) 

CALL CHAR(129, "@103070F1F3F7FFF") 

CALL CHAR(130, "88COEOFOF8FCFEFF") 

CALL CHAR(136, "FF1910FF101910FF") 

CALL CHAR(137, "FFFFFFFFFFFFFFFD" ) 

CALL CHAR(138, "FDFFFFFFFFFFFFFF"):: CALL CHAR( 
64, "@618181818189918") 

CALL COLOR(2,3,1,5,7,16,6,7,16,7,7,16,18,2,16, 
11,2,1,12,2,16,13,5,1,14,15,2) 

H$(1)=RPT$(" ",2)&CHRS (129) &CHRS (130) 

ao "&CHRS (129) &CHRS (128) &CHRS (128) &CHRS (1 
30 

HS (3 )=CHRS$ (129) &RPTS (CHRS (128), 4) &CHRS (130) 

H$ (4) =CHRS (128) &CHRS (136) &RPTS (CHRS (128), 2) &CH 
R$ (136) &CHRS$ (128) 

HS (5)=RPTS (CHRS(128),6) 

HS (6 )=CHRS (128) &CHRS (136) &CHRS (128) &CHRS (137) & 
RPTS$ (CHR$ (128), 2) 
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‘ 

349 PLS=RPT$(" ",4@) 

350 PLS=PLS&CHRS (94) &CHRS (95) &CHRS (96) &CHRS (97) &RP 
TS (CHRS$ (98),1@) 

366 PLS$=PLS&"COMPUTE" &CHRS (64) 

378 PLS=PLS&RPTS(" ",408) 

380 FOR L=22 TO 24 :: CALL HCHAR(L,1,49,32):: NEXT 
L 

398 FOR L=1 TO 7 

490 DISPLAY AT(14+L,16):H$(L) 

4190 NEXT L 

420 FOR L=l1 TO 126 

430 DISPLAY AT(3,1):SEG$(PLS,L, 28) 

446 FOR D=1 TO 25 :: NEXT D 

458 NEXT L 

468 GOTO 420 


Special Effects 
You can enhance your programs, particularly your games, by 
adding special effects to them. Special effects can range from 
simulated motion and animation to laser beams and explo- 
sions. They are used to give programs action and a sense of 
realism. You have already seen how to make a plane fly 
across the screen. Now consider some other possibilities. 
The program below illustrates how an alien ship can be 
made to fire its laser, using only those programming tech- 
niques that have been discussed so far. 


100 CALL CLEAR :: CALL SCREEN(2) 

110 CALL CHAR(96,“00COFCFFFFFCC000”’) 
120 CALL CHAR(112,““000000FFFF000000”’) 
130 CALL COLOR(9,6,1,11,9,1) 

140 FOR L=2 TO 14 

150 CALL HCHAR(L-1,4,32,1) :: CALL HCHAR(L,4,96,1) 
160 NEXT L 

170 FOR L=1 TO 4 

180 CALL HCHAR(14,5,112,25) 

190 CALL HCHAR(14,5,32,25) 

200 NEXT L 

210 FOR L=1 to 500 :: NEXT L:: STOP 


Line 100 clears the screen and sets it to black. Line 110 
defines the alien spaceship; line 120 defines the laser beam. 
Line 130 sets the ship’s color to blue and the laser to red. The 
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ship is brought down from the top of the screen by lines 140- 
160. Lines 170-200 fire the laser four times. The program ends 
on line 210. 

Program 2-4, “Blinky,” demonstrates that the computer 
doesn’t have to be a faceless collection of circuits and chips. 
As you will see when you RUN the program, your TI can be 
quite endearing. 


How Blinky Works 
Line(s) 
100 Clear the screen. 


110-160 Define the characters used in the program. ASCII code 
96 is the border for the face. A$ contains the pattern 
for the open eyes; B$ contains the pattern for the 
closed eyes. Codes 97 and 98 define the corners of the 
smile. 


170-210 Draw the face on the screen. 

220-270 Cause the eyes to blink five times. 

280-300 Change the corners of the mouth to make a smile. 
310-340 Cause the face to wink at the observer. 

350-370 End the program. 


Program 2-4. Blinky 


108 CALL CLEAR 

118 CALL CHAR(96, "FFFFFFFFFFFFFFFF ") 

120 AS="FF818181818181FF" :: BS$="OGOULOFFFFOODBRD" 

132 CALL CHAR(97, "0@393630300000060" ) 

148 CALL CHAR(98, "COCOCTCHGHEDOBODO" ) 

156 CALL CHAR(104,AS$) 

16@ CALL CHAR(112,B$) 

178 CALL HCHAR(19,12,96,8):: CALL HCHAR(18,12,96,8 
) 

18@ CALL VCHAR(11,12,96,7):: CALL VCHAR(11,19,96,7 
) 

198 CALL HCHAR(12,14,104,1):: CALL HCHAR(12,17,104 
,1l) 

206 CALL HCHAR(14,15,97,1):: CALL HCHAR(14,16,96&,1 
) 

218 CALL HCHAR(16,14,112,4) 

226 FOR L=1 TO 5 

238 FOR L2=1 TO 600 :: NEXT L2 
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249 
250 
260 
270 
280 
296 


388 
316 
328 
336 
348 


350 
366 
378 


CALL CHAR(194,B$) 

FOR L2=1 TO 46 :: NEXT L2 
CALL CHAR(164,A$) 

NEXT L 

FOR L=1 TO 100 :: NEXT L 
CALL HCHAR(16,14,97,1):: CALL HCHAR(16,17,98,1 
) 

FOR L2=l TO 708 :: NEXT L2 
CALL HCHAR(12,14,112,1) 
FOR L2=l1 TO 86 :: NEXT L2 
CALL HCHAR(12,14,104,1) 
FOR L=l]1 TO 200 :: NEXT L 


DISPLAY AT(26,10):"BYE Now!" 
FOR L=1 TO 500 :: NEXT L 
CALL CLEAR :: STOP 


The last program in this section, ‘Tank Attack,” illustrates 


how you can simulate a battle scene on the TI. In this pro- 
gram, an artillery piece is firing in the direction of an opposing 
tank. The tank returns the fire, and the artillery piece is 
destroyed. Figure 2-6 shows the character patterns used in this 
simulation. 


How Tank Attack Works 


Line(s) 


100 


Clear the screen. 


110-240 Define the characters used in the program. ASCII code 


42 is the base of the display. The tank is defined by 
the six ASCII codes 104-109. The artillery piece is de- 
fined by 112-114. ASCII codes 120-122 are used to 
simulate the artillery piece firing. A$(0)—-A$(3) contain 
the character patterns to simulate the tank firing. 


250-260 Assign the colors used for the character. 


270 


Draw the base of the screen. 


280-290 Draw the tank. 


300 
310 


Draw the artillery piece. 
Timing loop. 


320-370 Cause the artillery piece to fire four times. The loop 


changes the pattern in front of the gun’s muzzle rap- 
idly, giving the appearance of firing. 


380-450 Cause the tank to return fire four times. Again, the 


loop causes the pattern to change rapidly, simulating 
return fire. 
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460-490 This loop alternately displays codes 121 and 122 at the 
positions where the artillery piece was located. This 
causes the artillery piece to explode. 


500-510 End of program. 


Figure 2-6. Tank Attack Character Patterns 
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Program 2-5. Tank Attack 


100 
116 


CALL CLEAR 
CALL CHAR(42, "FFFFFFFFFFFFFFFF") 

CALL CHAR(104, "@QBOBSOBBSHO3FGO") 

CALL CHAR(105, "OOGGOOOGOOOFFFFFF" ) 

CALL CHAR(166, "@GBGVGBGGG8G80H80 " ) 

CALL CHAR(197, "OG1F1F7F7F7F3F1F") 

CALL CHAR(108, "FFFFFFFFFFFFFFFEF") 

CALL CHAR(199, "8@F8FSFEFEFEFCF8") 

AS (9 )="GLHGBGGOUSGOOSHGG" =: AS(1)="GBHGBVOGOHO 
@G1G1" :: AS(2)="GGQ0GHGGO0H10703" :: AS(3)="g 
GO0OGH241264930F07" 

CALL CHAR(112, "@082060C183868C6") 

CALL CHAR(113,"01031F1F1FFFFFFF") 

CALL CHAR(114, "COEOPOFOFOFFFFFF") 

CALL CHAR(121, "G@BGBGG4GGHAG8G9G" ) 

CALL CHAR(122,"8421084409A2C8E1") 

CALL CHAR(128,A$(@)) 

CALL COLOR(2,13,1,12,9,1) 

CALL SCREEN (6) 

FOR L=22 TO 24 :: CALL HCHAR(L,1,42,32):: NEXT 
L 

FOR L=164 TO 186 :: DISPLAY AT(2@,L-80):CHR$(L 


Jit: NEXT L 
FOR L=107 TO 109 :: DISPLAY AT(21,L-83):CHRS(L 
)e:: NEXT L 
DISPLAY AT(20,4):CHR$(112);::: DISPLAY AT(21,3) 


:CHR$(113);:: DISPLAY AT(21,4):CHRS$(114); 
FOR L=1 TO 190600 :: NEXT L 

FOR L=1 TO 4 

DISPLAY AT(19,5):CHRS$(121); 

DISPLAY AT(19,5):CHRS$(122); 

DISPLAY AT(19,5):" "3 

FOR L2=1 TO 480 :: NEXT L2 

NEXT L 

DISPLAY AT(20,23):CHRS$(12@8); 

FOR X=1 TO 4 

FOR L2=1 TO 300 :: NEXT L2 

FOR L=l TO 3 

CALL CHAR(120,A$(L) ) 

NEXT L 

CALL CHAR(128,A$(@)) 

NEXT X 

FOR L=1 TO 7 

DISPLAY AT(20,4):CHR$(121);:: DISPLAY AT(21,4) 
:CHR$(121);:: DISPLAY AT(21,3):CHRS$(121); 
DISPLAY AT(20,4):CHR$(122);:: DISPLAY AT(21,4) 
:CHR$(122);:: DISPLAY AT(21,3):CHRS$(122); 
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496 NEXT L 
508 DISPLAY AT(2@,4):" "s:: DISPLAY AT(21,3):" "3 
518 GOTO 518 


High-Resolution Graphics 

It is enjoyable, even exciting, to watch high-resolution graph- 
ics. A highly detailed graphic display will attract attention 
faster than any other type of demonstration. Sometimes you 
can even hear the oohs and aahs. 

One of the main reasons for the popularity of the PAR- 
SEC command module, for example, is its detailed multicolor 
graphics. Achieving such detail and resolution usually requires 
the use of Assembler Language. But this doesn’t mean that 
you need the Editor/Assembler package to do hi-res graphics 
on your TI. You can actually do quite a bit from BASIC. 

The biggest drawback to using BASIC is that you can’t 
access each of the 49,152 pixels directly. You can, however, 
access each bit in a single 8 x 8 character. By defining and 
putting enough of these characters together, you can produce 
some very nice hi-res images on your TV or monitor. 


Figure 2-7. 3-D Shapes 
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Figure 2-7 shows some three-dimensional shapes drawn 
on graph paper. The area shown is eight characters by eight 
characters. Each character is made up of an 8 x 8 matrix. By 
assigning each character to a unique ASCII character code and 
then defining the pattern for each character, you can write a 
program to display these 3-D shapes on the screen. Program 
2-6 illustrates how it can be done. 


Program 2-6. 3-D Shapes 


180 CALL CLEAR 
118 FOR L=33 TO 44 
128 READ AS :: CALL CHAR(L,AS) 
138 NEXT L 
146 FOR L=91 TO 142 
158 READ AS :: CALL CHAR(L,A$) 
168 NEXT L 
176 FOR R=l TO 8 
188 FOR C=1 TO 8 
196 CHAR=(R-1) *8+C+32 
200 IF CHAR>44 THEN CHAR=CHAR+46 
218 DISPLAY AT(R+8,C+8):CHRS (CHAR); 
226 NEXT C :: NEXT R :: DISPLAY AT(20,9):"3-D SHAP 
ES" 
230 GOTO 230 
248 DATA "GPHOBOGSOBHOGSOGH" 
258 DATA "GGBGGOOGHOG1F2G640" 
268 DATA "GBOPOOOOBOF FOGG" 
270 DATA "GPOOBSOOBOFFOZHO" 
288 DATA "QUBGOSOGOGESEGAGD" 
290 DATA "GBSHBOGOGSOGOGRO" 
308 DATA "GGOBGSOSHSGBGOGG" 
310 DATA "@OG9GSGOPOOG1F2143" 
320 DATA "@801G20498102046" 
330 DATA "8HBGODUSBOBGHSOOB" 
340 DATA "GPOOGOSOGOHOOABGO" 
358 DATA "@182048810204680" 
360 DATA "2020202020202026" 
378 DATA "“GOBVSHBGUVOOGVHBG" 
380 DATA "98014628498102142" 
398 DATA "8589112142848816" 
460 DATA "“FF8O8U8080808086" 
41G DATA "FFOOSGSHSLHGLOGBOH" 
428 DATA "FFO1818181018181" 
438 DATA "SQGOEGHSOGHHOSGHOGH" 
449 DATA "2020202026202026" 
458 DATA "G@9018930202626203" 
466 DATA "84U8FG11121418F6" 
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470 DATA "2046088090900 00008 " 
486 DATA "8888808080808086" 
498 DATA "SOOHOHOGGOOBOOOOGDGD " 
590 DATA "@101010161018101" 
518 DATA “GGGOBO0OOSSOHOLGO1 " 
520 DATA "2820202020498000" 
530 DATA "@BBOGOGOBOGGOLOBOL " 
540 DATA "@GOOOBODOOUGOOOH " 
550 DATA "“GOOGOHOGDOGOOORBHBH" 
568 DATA "888O8O8080808OFF" 
578 DATA "OOGOUSOGOOLOOOOFF" 
58@ DATA "61016101610161FF" 
59@ DATA “@2904081820498006" 
608 DATA "@G016204081602046" 
618 DATA "GOFFOOOSDBOSUHGG" 
628 DATA "OOFFODHDOBGDBOOLBH" 
6308 DATA "®@OFFO30569112141" 
648 DATA "@0G000UGG0H010191" 
658 DATA "@9OO3F4385F90909" 
662 DATA "GGOBOHBLGGOGLHGOOH" 
678 DATA "GVUGOOOOOSODLOOOH" 
680 DATA "FF8080808F888888" 
698 DATA "FFOUSGOOFF20262U" 
76@ DATA "FF@18191F1111111" 
710 DATA "81016101010610101" 
728 DATA "@101810102040816" 
73@ DATA "@96999F911214284" 
748 DATA "OBGUGBVOUODSGOOB" 
758 DATA "GBGOOVOUSOCOOOHOGLOG" 
766 DATA "&888888888&8888888 " 
778 DATA "28262020203F4080" 
786 DATA "1111111111F11111" 
790 DATA "@1010101019019101" 
800 DATA "2142FC84848586FC" 
818 DATA "@8162040809G00990" 
826 DATA "GBOOODOBBODOHOGGOH" 
838 DATA "GUBCOLOBSSBOODBLO" 
849 DATA "898A8C8FSO8080FF" 
858 DATA "OBOOOOFFOUOOOOFF" 
866 DATA "111111F1910101FF" 
870 CATA "J204981820498000" 


The second method for producing hi-res graphics on the 
TI doesn’t require you to predefine the image with CALL 
CHAR statements. Instead, the TI itself will draw the image 
based on an equation. It will determine which bits are needed, 
and then it will turn them on. 
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This method still starts with the 64 ASCII character codes 
used in the previous program. Rather than defining these 
characters, however, all bits are initially turned off (set to 
zero). These characters are located on the screen in the 8 x 8 
arrangement shown in Figure 2-8. Of course, since all the bits 
are turned off, nothing shows up on the screen at this point. 


Figure 2-8. Character Arrangement for Graph 


This arrangement is analogous to a 64 x 64 pixel matrix 
on the screen. The equation determines which pixels in the 64 
x 64 matrix must be turned on. But since the pixels can’t be 
accessed directly, the 8 x 8 character in which they reside 
must be found. The pattern for that character is then changed 
to reflect the on condition of the pixel. Slowly, the image is 
drawn on the screen. 

Program 2-7, “Graph,” demonstrates how this technique 
works. It may seem a bit complex at first, but if you study the 
program, it should start to make sense. 

There are two things to keep in mind when using this 
routine. First, due to the number of computations required to 
find and set the appropriate pixels, program execution is quite 
slow. This is especially true with STEPs of .5 or less. The sec- 
ond thing to keep in mind is that the technique uses a lot of 
memory, due to the large number of character definitions. 
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Figure 2-9 shows what you'll get if you modify the pro- 
gram for different equations. 
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Figure 2-9. Program Changes for Graph 


Change lines to: 


460 Y=X 


460 Y=8 


460 Y=X+6 


390 FOR X=0 TO 32 STEP .5 
410 FOR X=0 TO —32 STEP —.5 
460 Y=2*X-12 


390 FOR X=0 TO 32 STEP .25 
410 FOR X=0 TO —32 STEP —.25 
460 Y=.333*X+10 


390 FOR X=0 TO 32 STEP .1 
410 FOR X=0 TO -32 STEP —.1 
460 Y=Xt2 


390 FOR X=0 TO 32 STEP .1 
410 FOR X=0 to —32 STEP —.1 
460 Y=SIN(X)*7 
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How Graph Works 

Line(s) 

100 DIMension arrays. 

110-120 Clear the screen and display message. 

130-140 Set up character patterns. BL$ is used to blank out the 
characters used by the program. A$, B$, C$, and D$ 
are used to insert the X and Y axes in the display area. 

150 Load four-digit bit strings into BITS$. 

160-170 Blank out the ASCII characters used in the display 
area. 

180-230 Insert the X and Y axis lines in the display area. 

240 Display the X and Y axis values. 

250-320 Load the A array with the ASCII character codes in the 
display area. This is used later to determine which 
ASCII character code to change. 

330 Erase STAND BY message. 

340-380 Display the 64 characters on the screen 8 characters at 
a time. This builds the 8 x 8 display area. 

390-400 Initiate the routine to plot the points for the positive 
values of X. 

410-420 Initiate the routine to plot the points for the negative 
values of X. 

430-450 End of program. 

460 This is the equation which controls where the points 
are plotted on the graph. Figure 2-9 shows possible 
alternatives. 

470-490 Determine the actual location of the point in the 64 x 
64 pixel matrix. The program plots both positive and 
negative values, but negatives in the actual matrix 
aren't possible, hence the +32. 

500-520 Determine the location of the pixel in the 8 x 8 charac- 
ter matrix. This must be done since the pixel cannot be 
accessed directly. 

530 Get the hex pattern of the character that contains the 
pixel. The A array contains the ASCII codes of the 
characters used. The pattern is placed in W$. 

540-560 Determine which byte in the pattern contains the pixel. 
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570-620 Convert the one-byte hex pattern which contains the 


pixel into an eight-digit bit pattern (for example, 
00100110). 


630-660 C1 contains the column position of the pixel within the 


8 x 8 character grid. If the bit in this position is not on, 
it is turned on. If it is on, it stays as is. 


670-690 Convert the bit pattern, with the updated pixel, back 


into a hex pattern. 


700-730 Combine the new one-byte hex pattern with the other 


740 


750 


seven bytes in the pattern. 


Change the pattern of the ASCII character code which 
effectively plots the point on the screen. 


Return from plot subroutine. 


760-770 Hex pattern binary equivalents. 


Program 2-7. Graph 


186 
11 
120 
136 
146 
158 
166 
178 
186 


196 


206 


210 


220 


230 


240 


256 
266 
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DIM A(8,8), BITS$(15) 

CALL CLEAR 

DISPLAY AT(4,6): "PLEASE STAND BY" 

BLS="GGOSOGOSOSOOPHOHH" :: HEXS="G123456789ABCD 

EF iT) 

A$="018180101019180161" :: BS="8H8G8G8G8080808H" 
:: CS="GQ0OGOOUSOOOOOOFF" :: DS="FFOGOSSOOGOOY 

BOSWOS" 

FOR L=8 TO 15 :: READ BITSS$(L):: NEXT L 

FOR L=33 TO 44 :: CALL CHAR(L,BL$):: NEXT L 

FOR L=91 TO 143 :: CALL CHAR(L,BL$):: NEXT L 

CALL CHAR(36,A$,44,AS,98,AS,122,AS,130,AS$,138, 

AS) 

CALL CHAR(37,B$,91,BS$,99,B$,123,B$,131,B$,139, 

BS) 


CALL Soe nes rh etOd C8) 10s, CP A08 687109654 
18,cs 

CALL CHAR(111,D$,112,D$,113,D$,116,D$,117,D$,1 
18,D$) 

CALL CHAR(166, "01010191916191FF"):: CALL CHAR( 
187, "8BQ8U808C808U80FF") 

CALL CHAR(114, “FF@1810181010101"):: CALL CHAR( 
115, "FF8U808880808080") 

DISPLAY AT(6,13):"32" :: DISPLAY AT(11,19):"32 
“3: DISPLAY AT(11,7):"-32";:: DISPLAY AT(17,1 
2 ) : "32" 


FOR L=1 TO 8 
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FOR L2=1 TO 8 

IF X=45 THEN X=91 

A(L,L2)=X 

X=X+1 

NEXT L2 

NEXT L 

DISPLAY AT(4,1):" ” 

FOR L=1 TO 8 

L$=" rT) 

FOR X=1 TO 8 :: LS=LS&CHRS(A(L,X)):: NEXT X 
DISPLAY AT(7+L,10):LS; 

NEXT L 

FOR X=9 TO 32 STEP .3 

COSUB 46@ :: NEXT X 

FOR X=8 TO -32 STEP -.3 

GOSUB 460 :: NEXT X 

DISPLAY AT(22,8):"PRESS ANY KEY" 
CALL KEY(3,K,S):: IF S=U THEN 449 
CALL CLEAR :: STOP 

Y=X 

XX=INT(X+32)22 YY=INT(Y+32) 

IF XX>64 OR XX<=@ THEN 756 

IF YY>64 OR YY<=0 THEN 759 
R=64-YY+1 

CC=INT( (XX-1)/8)+1 

RR=INT( (R-1)/8)+1 

CALL CHARPAT(A(RR,CC),WS) 
Cl=xx-((cc-1)*8) 

RI=INT( (64-YY )-((RR-1)*8)+1) 
RYTES=SEGS (WS, R1*2-1,2) 
EXPANDS="" 

FOR L3=1 TO 2 

HOLDS=SEGS$ (BYTE$,L3,1) 

IF HOLDS>"9" THEN POINT=ASC(HOLD$)-55 ELSE POI 
NT=VAL (HOLDS ) 


EXPANDS=EXPANDS &BITSS (POINT) 
NEXT L3 

NEWPATS="" 

FOR L2=1 TO 8 


IF Cl<>L2 THEN NEWPATS=NEWPATS$ &SEG$ (EXPANDS, L2 
,1)ELSE NEWPATS=NEWPATS&"1" 

NEXT L2 

HIGHS=SEGS$ (HEX$, 8*VAL(SEGS$ (NEWPAT$, 1,1) )+4*VAL 
(SEGS (NEWPATS, 2,1) )+2*VAL(SEGS$ (NEWPATS,3,1))+V 
AL(SEGS (NEWPATS,4,1))+1,1) 

LOWS =SEGS (HEXS$, 8*VAL(SEGS (NEWPAT$,5,1) )+4*VAL ( 
SEGS (NEWPATS, 6,1) )+2*VAL(SEG$(NEWPATS$,7,1))+VA 
L(SEG$(NEWPATS,8,1))+1,1) 

BYTES=HIGHS$&LOWS 
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760 
719 
729 


73@ 
746 
758 
766 


770 
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NEWCHARS="" 

FOR L2=l TO 16 

IF L2<>R1*2-1 THEN NEWCHARS=NEWCHARS&SEGS (WS ,L 
2,1)ELSE NEWCHARS=NEWCHARS&BYTES :: L2=L2+1l 
NEXT L2 

CALL CHAR(A(RR,CC),NEWCHARS ) 

RETURN 

DATA “G260", "G61", "G18", "GG11", "9108", "181" 
"Ql 10", "9111", "19400" 

DATA "1661", "1916", "1811", "1198", "1161", "1110" 
7 "V1L1L1" 
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hapter 2 introduced the basic concepts and tech- 

niques used to produce graphics on the TI, and even 

if that was all you had, it would still be a decent 

graphics machine. But the engineers at Texas 
Instruments didn’t stop there. In fact, they went considerably 
further by giving your TI an outstanding feature: sprite 
graphics. 

Sprites are graphics characters which, once defined by the 
program, are controlled by the TI itself. They can be made to 
move independently of, and concurrently with, your BASIC 
program. For example, your program can define a sprite in the 
shape of an airplane, set the plane in motion across the screen, 
and then go on to some other process. Meanwhile, the sprite 
will continue to fly across the screen until your program either 
interrupts it or ends. 

Sprite motion is much smoother than motion controlled 
by BASIC. Sprites can move from one location to the next a 
single pixel at a time, eliminating the jumpy motion inherent 
in character-to-character movement. In addition, since sprites 
are controlled by the computer’s hardware and system soft- 
ware, they offer a huge speed advantage over BASIC- 
controlled graphics. Finally, unlike other graphics, sprites can 
pass over other sprites or objects without erasing the previous 
contents of a screen location. 

Sprites are placed on the screen by pixel location rather 
than character location. This means they can be placed virtu- 
ally anywhere on the 192 dot-row by 256 dot-column screen 
matrix. The TI-99/4A allows for 32 independent sprites on the 
screen at one time. Extended BASIC, however, limits this to 
28. Each of the 28 sprites may be assigned its own color, and 
any sprite’s location, motion, velocity, shape, and color can be 
changed dynamically within a BASIC program. 

There are specialized commands which let you check the 
status of sprites. You can, for example, determine a sprite’s 
location and decide whether or not it is coincident with 
another sprite. Your program can also determine how far one 
sprite is from another sprite or screen location. The magic 
behind such capabilities is TI’s sophisticated TMS9918A Video 
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Display Processor (VDP). Although several other home 
computers have sprite-type graphics, they do not have the 
automatic motion and other features of the TI because they do 
not have the TI chip. 


The TMS9918A Video Display Processor 

To fully appreciate this chip’s capabilities and to better under- 
stand TI sprites, it is beneficial to take a look at the 
TMS9918A Video Display Processor (VDP). The video for the 
TI-99/4A is controlled by this chip, which is an advanced 
large-scale integrated-circuit (LSI). Among the features pro- 
vided by the VDP are resolution of 256 x 192 pixels, 16 colors 
(including transparent), 35 display planes for graphics control, 
and sprites. 

The VDP arranges the 99/4A’s display into 35 geometric 
planes (Figure 3-1) stacked on top of each other. These 
stacked planes are displayed on the monitor as one composite 
image. Any image on the first plane will block out that area 
on planes 2-35, any image on the second plane will block out 
that area on planes 3-35, and so on. Furthermore, if the image 
on a particular plane is moving, it will appear to pass in front 
of any images on planes in front of it. The overall effect is to 
simulate a three-dimensional graphics display on the two- 
dimensional screen of your monitor. 

The first 32 planes, numbered 0-31, may contain one 
sprite graphics character each. The sprite on the lowest- 
numbered plane will always appear to pass over the other 
sprites. The highest-numbered sprite will always appear to 
pass behind the other sprites. The remaining sprites act 
according to their precedence. Keep in mind that Extended 
BASIC allows you to define only 28 sprites (numbered 1-28). 

Behind the sprite planes is the pattern plane. This plane 
contains the characters placed on the screen by BASIC com- 
mands such as DISPLAY and HCHAR. Behind this is the 
backdrop plane, which appears as the display area background 
and border on your TV or monitor. Its color is set by the 
CALL SCREEN command. 

The last plane in the stack is the external video plane. 
This plane allows the VDP to mix external video signals into 
the image. It is used only in specialized applications and has a 
default color of black. It is this plane that causes the screen to 
black out when you set the screen color to transparent. 
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VDP RAM 

The actual patterns, sprite attributes, and other information 
required to produce a screen display are stored in a block of 
memory called VDP Random Access Memory (RAM). This 
VDP RAM is segregated into sub-blocks containing various 
tables that define the screen image. Five of the most important 
sub-blocks are the Pattern Name Table, Pattern Generator 
Table, Pattern Color Table, Sprite Attribute Table, and Sprite 
Generator Table. 

The first three tables define characters on the pattern 
plane. The Pattern Name Table identifies each of the 768 
character positions on the screen and points to the pattern 
definition for that character position in the Pattern Generator 
Table. The Pattern Generator Table contains the character pat- 
terns defined to the computer which can be displayed on the 
screen at the locations determined by the Pattern Name Table. 
The Pattern Color Table contains the color codes for the pat- 
terns defined in the Pattern Generator Table, and colors are 
assigned to character sets (every eight contiguous characters) 
rather than to individual characters. 

Two separate tables are used to define and control sprites. 
The Sprite Attribute Table identifies each sprite that has been 
defined and contains information about its location and color. 
It also contains a pointer to the sprite’s entry in the Sprite 
Generator Table. The Sprite Generator Table defines the pat- 
tern used for that sprite. 


Putting It on the Screen 

So the VDP RAM contains a lot of information. How is that 
information used to place an image on the screen? Actually, 
the screen image is constantly updated by the computer, 
which continually scans the tables to determine what character 
or sprite belongs in each screen position. Information about 
each character or sprite (for example, color, pattern, size, etc.) 
is collected from the tables and mapped onto the appropriate 
plane, and the planes are then combined to form the actual 
screen image (Figure 3-2). 

Obviously, since the display appears to change constantly, 
the process is being accomplished at microsecond speeds. VDP 
RAM values are being changed (via BASIC instructions); pat- 
terns, colors, and locations are being mapped onto display 
planes; and display planes are being combined to form the 
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Figure 3-2. Mapping the Display 
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image on your monitor. It is a complex process, and it goes on 
continuously. 

In addition, the VDP also keeps track of other infor- 
mation. It follows the velocity and direction of any sprites that 
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are in motion, and it checks sprite size, sprite coincidence (two 
or more sprites in the same display area), sprite distance from 
other objects, and the number of sprites on a line. 


Defining Sprites 
Sprites are defined by using the CALL SPRITE subprogram. It 
has the following format: 


CALL SPRITE(#sprite number,character value,sprite color,dot- 
row,dot-column,row velocity,column velocity,...) 


Sprite number is a numeric value from 1 to 28 which 
identifies the sprite. The numeric value is always preceded by 
the # symbol and may be a numeric literal, variable, or 
expression (for example, #2, #A, #X+1). If a sprite is defined 
with a sprite number that already exists, the old sprite is 
deleted and the new one takes its place. 

When defining sprites in your program, keep in mind that 
they will appear on sprite planes. Consequently, lower- 
numbered sprites will pass over higher-numbered ones, and 
all sprites will pass over other objects which are on the pattern 

lane. 
Character value identifies the ASCII character code that 
contains the desired sprite pattern. The pattern is defined by 
the CALL CHAR subprogram. Character value must be an 
integer between 32 and 143, and it may be a numeric literal, 
numeric variable, or numeric expression. For double-sized 
sprites (discussed later), character value is the first ASCII code 
of a four-code contiguous group. 

Sprite color is an integer from 1 to 16 that determines the 
sprite’s color. The value itself may be a numeric literal, 
numeric variable, or numeric expression. The colors are the 
same as those used in the CALL COLOR and CALL SCREEN 
commands. Sprite color identifies the foreground color only; 
the background color is always transparent (1). 

Dot row identifies a sprite’s initial row location on the 
screen, which is determined by pixel rather than character 
location. As a result, a sprite can be positioned anywhere on 
the TI’s 192 dot row screen grid. The sprite is placed on the 
screen with its top left pixel at the location indicated by dot- 
row (Figure 3-3). 
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Dot row is an integer value in the range 1-256. It may be 
a numeric literal, numeric variable, or numeric expression. The 
upper limit is 256 instead of 192 because, although the TI has 
the ability to address up to 256 rows, only the first 192 are vis- 
ible. The remainder (193-256) are off the bottom of the 
screen, but sprites can still be located there. 

Dot column identifies a sprite’s initial column location on 
the screen. The location may be any of the 256 columns on 
the TI screen grid. As with dot-row position, a sprite is located 
at the dot-column indicated by its top-left pixel. 

Row velocity is an integer in the range —128 to 127 and 
may be a numeric literal, numeric variable, or numeric 
expression. It causes the sprite to have vertical motion. When 
row velocity is positive, the sprite will move downward; when 
row velocity is negative, the sprite will move upward. The 
speed at which the sprite moves is determined by the row 
velocity value. The higher the positive number, or the lower 
the negative number, the faster the speed. The following scale 
illustrates this: 


§ 3363 9 3 


faster slower faster 
—128 <<——————_ 0 ——— 127 


Column velocity is an integer in the range —128 to 127 
and may be a numeric literal, numeric variable, or numeric 
expression. It causes the sprite to have horizontal motion. A 
positive value moves the sprite to the right; a negative value 
moves the sprite to the left. The sprite’s speed is determined 
the same way as row velocity. 

You can give a sprite diagonal motion by using both row 
and column velocity. For example, a row velocity of 20 and 
column velocity of 20 will cause the sprite to move down and 
to the right at a 45-degree angle. Other values will produce 
different directions and speeds. If you want the sprite to be 
stationary, you can either give it a row and column velocity of 
0 or exclude these two parameters altogether. 

There are several other factors you should consider when 
using sprites in your programs. Whenever a program hits a 
breakpoint or you use CLEAR (FCTN 4) to stop the program, 
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all active sprites cease to exist. The CONTINUE statement will 
not restore them. Also, the VDP is designed to handle a maxi- 
mum of four sprites on any one screen line. When this limit is 
exceeded, the highest numbered sprites ‘‘disappear.” They still 
exist, however, and will reappear once they (or one of the 
other sprites) move beyond the line. 


CALL SPRITE Subprogram Examples 

The best way to understand sprites is to see them in action. 
The following short programs illustrate several variations on 
the CALL SPRITE command. You should type in and RUN 

these programs to know how the commands work. 


100 CALL CLEAR 
110 CALL SPRITE(#1,65,2,95,128) 
120 GOTO 120 


This program defines sprite number 1. The pattern for the 
sprite is the normal pattern for ASCII code 65—the letter A. 
The foreground color is black (2); the background is always 
transparent. The sprite will be displayed on the screen with its 
top left-hand corner pixel at dot-row 95 and dot-column 128. 

As you can see when you RUN the program, the sprite 
remains in the center of the screen. In order to put the sprite 
in motion, it must be given row and/or column velocity. 
Changing line 110 to the following does just that: 


110 CALL SPRITE(#1,65,2,95,128,20,0) 


The CALL SPRITE subprogram has now been given two 
additional parameters. Its row velocity is now 20; the column 
velocity is 0. The sprite will move smoothly downward at 
medium speed. When it gets to the bottom of the screen, it 
will wrap around the screen and reappear at the top, still in 
motion. The motion will continue until you end (CLEAR) the 
program. . 

If you change the row velocity to 90, the sprite’s speed 
will show a dramatic increase. Similarly, by changing the row 
velocity to —20, you will make the sprite reverse direction 
and move upward. Changing the velocity to —90 will move 
the sprite upward at high speed. 

Horizontal motion is controlled in the same way. When 
you change the row velocity back to 0 and the column veloc- 
ity to 20, the sprite will move across the screen from left to 
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right at medium speed. Changing the column velocity to —20 
moves the sprite from right to left. 

By providing both row and column velocities, you can ~ 
move the sprite in any direction. For example, a row velocity 
of 20 and a column velocity of 20 move the sprite down to the 
right. Similarly, row velocity 20 and column velocity —20 
move the sprite down and to the left, and —10 and —50 
move the sprite up and to the left at a sharp angle. 

Program 3-1 demonstrates three additional concepts relat- 
ing to CALL SPRITE. First, there may be multiple sprites—as 
many as 28—on the screen at any one time. Second, the 
parameters coded in the CALL SPRITE command may be gen- 
erated randomly. And finally, when a sprite number is reused 
in a CALL SPRITE command, the sprite previously identified 
by that number will be replaced by the new sprite indicated in 
the command. 


Program 3-1. Sprite Example 1 

198 CALL CLEAR 

118 CALL SCREEN(2) 

126 RANDOMIZE 

138 FOR L=l TO 26 

148 ROWVEL=1+INT(RND*50) 

150 IF RND<.5 THEN ROWVEL=ROVWVEL*-1 
16@ COLVEL=1+INT(RND*5@) 

178 IF RND<.5 THEN COLVEL=COLVEL*-1 
188 COLOR=3+INT(RND*14) 

19@ CALL SPRITE(#L,L+64,COLOR,95,128, ROWVEL, COLVEL 


260 NEXT L 
218 GOTO 130 


Lines 100-110 clear the screen and set the color to black 
(2). Line 120 seeds the random number generator. Line 130 
sets up a loop which will repeat 26 times. Lines 140-170 ran- 
domly generate the row velocity and column velocity for each 
26 sprites. The sprite number is determined by L (1-26); the 
sprite pattern is determined by L+ 64 (which yields 65-90, 
representing the letters A—Z). 

The sprites will appear initially at dot row 95 and dot 
column 128, with velocities determined by lines 140-170. Line 
200 closes the loop. Line 210 branches to line 130, which 
starts the process over again. As each sprite number (1-26) is 
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reused, the sprite previously identified by a particular number 
is replaced on the screen by the new sprite now identified by 
that number. 

The example programs presented thus far have used let- 
ters of the alphabet for the sprite shapes. Sprites may, of 
course, be any shape you define them to be. Program 3-2 
combines sprites with character definition techniques discussed 
in Chapter 2. 


Program 3-2. Sprite Example 2 

108 CALL CLEAR 

118 CALL CHAR(33, "18182424424281FF") 
120 CALL CHAR(34, "FF7E3C18183C7EFF") 
130 CALL CHAR(35, "183C7EFFFF7E3C18") 
148 CALL CHAR(36, "8@EGFOFFFFFUED8S ") 
15@ CALL CHAR(37,"182442FFFF422418") 
168 CALL SCREEN(2) 

178 RANDOMIZE 

188 FOR L=l TO 26 

192 ROWVEL=1+INT (RND*3@ ) 

268 IF RND<.5 THEN ROWVEL=ROWVEL*-1 
218 COLVEL=1+INT(RND*3@) 

226 IF RND<.5 THEN COLVEL=COLVEL*-1 
230 COLOR=3+INT(RND*14) 

249 PAT=33+INT(RND*5) 

258 CALL SPRITE(#L, PAT, COLOR, 95,128, ROWVEL,COLVEL) 
268 NEXT L 

278 GOTO 182 


Line 100 clears the screen. Lines 110-150 define the 
character patterns used for the sprites. These will be assigned 
to ASCII codes 33-37. Line 160 sets the screen to black, and 
line 170 seeds the random number generator. Line 180 sets up 
the sprite definition loop, which is closed by line 260. Lines 
190-220 randomly generate the row and column velocities. 
Line 230 randomly selects the sprite color. Line 240 deter- 
mines the pattern to be used for each sprite by selecting a ran- 
dom number between 33 and 37 inclusive, and line 250 
defines the sprite and sets it in motion. Line 270 starts the 
process over. 


Sprite Sizes 
Sprites displayed on the screen are not limited in size to a sin- 
gle 8 x 8 character. There are, in fact, four different sprite sizes 
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to choose from. These are formed by.specifying the sprite as 
either single- or double-sized and magnified or unmagnified. 

Single-sized sprites are defined by a single character pat- 
tern. Double-sized sprites, on the other hand, are defined by 
four contiguous character patterns (for example, ASCII codes 
100-103). The first pattern in the four-pattern group is defined 
by an ASCII code evenly divisible by four (for example, 100). 
If you specify a code that is not divisible by four, the com- 
puter will start with the next lowest ASCII code which is 
divisible by four. For example, if you specify ASCII code 102 
as the CALL SPRITE character code, the four-pattern sprite 
will still be defined by ASCII codes 100-103. 

Each character in an unmagnified sprite occupies the stan- 
dard 8 x 8 character grid. The overall size of a magnified sprite 
character is increased by a factor of four. A single-sized mag- 
nified sprite occupies a 4-character 16 x 16 grid; a double- 
sized magnified sprite occupies a 16-character 32 x 32 grid. 

The CALL MAGNIFY subprogram is used to set the 
desired sprite size. It has the following format: 


CALL MAGNIFY(magnification factor) 


Magnification factor is an integer from 1 to 4 that defines 
the sprite’s size. It can be a numeric literal, numeric variable, 
or numeric expression. The size indicated by magnification 
factor is assigned to all active sprites on the screen. 

A magnification factor of 1 defines all active sprites as 
single-sized and unmagnified. This is the default size if no 
CALL MAGNIFY is specified in the program and is shown by 
the following program: 

100 CALL CLEAR 

110 CALL MAGNIFY(1) 

120 CALL SPRITE(#1,68,2,9,9) 
130 GOTO 130 
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A magnification factor of 2, as the next program shows, 
defines all active sprites as single-sized and magnified. The 
sprite pattern is displayed on the screen four times larger than 
normal. 


100 CALL CLEAR 

110 CALL MAGNIFY(2) 

120 CALL SPRITE(#1,68,2,9,9) 
130 GOTO 130 
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A magnification factor of 3 defines all active sprites as 
double-sized and unmagnified. The sprite pattern is defined 
by four contiguous characters. The first character code in the 
four-character group is evenly divisible by four. Each of the 
four characters is unmagnified (normal size). 


100 CALL CLEAR 

110 CALL MAGNIFY(3) 

120 CALL SPRITE(#1,68,2,9,9) 
130 GOTO 130 


Notice that the above example displays the four letters D, 
E, F, and G, the four-character group. If you change the 
character code to 70 (not evenly divisible by 4), the computer 
uses the next lowest number divisible by 4, which is 68. As a 
result, the same four letters would be displayed. 

Finally, a magnification factor of 4 defines all active 
sprites as double-sized and magnified. The sprite pattern is 
defined by four contiguous characters. In addition, each of the 
four characters is four times its normal size. 


100 CALL CLEAR 

110 CALL MAGNIFY(4) 

120 CALL SPRITE(#1,68,2,9,9) 
130 GOTO 130 
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If you look at the two double-sized examples, you will 
notice that the four characters making up the sprite are placed 
on the screen in a specific order. The first ASCII character 
forms the top left portion of the sprite. The second forms the 
bottom left, the third forms the top right, and the fourth forms 
the bottom right. 

For simplicity’s sake, the preceding examples used letters 
of the alphabet to define the sprite patterns. However, you can 
define whatever patterns you wish to use by using CALL 
CHAR. 

The short program below shows how that can be done. It 
uses CALL CHAR to define a pattern in four contiguous ASCII 
character codes. It then defines a double-sized unmagnified 
sprite which moves across the screen. 


100 CALL CLEAR 

110 CALL CHAR(100,“00000003010307FF’’) 
120 CALL CHAR(101,’FF07030103000000’’) 
130 CALL CHAR(102,103060EOCOC183FF”) 
140 CALL CHAT(103,’FF83C1C0E0603010”) 
150 CALL MAGNIFY(3) 

160 CALL SPRITE(#1,100,2,90,220,0,—10) 
170 GOTO 170 
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To remove a particular sprite from the screen, you must use 
the CALL DELSPRITE subprogram. It has the following 
format: 


CALL DELSPRITE(#sprite number,...) 

Sprite number is the number of the sprite you want to 
delete. It is always preceded by the # symbol and may be a 
numeric literal, numeric variable, or numeric expression. You 
may delete more than one sprite in a single CALL DELSPRITE 
subprogram as follows: 

CALL DELSPRITE(#1,4D,#A + 2) 
In addition, you may delete all sprites in the program by using 
CALL DELSPRITE(ALL). 


Sprite Color 

A sprite’s color may be changed by using the CALL COLOR 
subprogram. This command has the following format: 
CALL COLOR(#sprite number,foreground color,...) 

Sprite number identifies the sprite. It is always preceded 
by the # symbol and may be a numeric literal, numeric vari- 
able, or numeric expression. You may assign a color to more 
than one sprite in a single CALL COLOR command. 
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Foreground color is the color that will be assigned to the 
illuminated pixels in the sprite. A sprite’s background color is 
always transparent. 

One way to get multicolor graphics on your TI is to com- 
bine sprites of different colors. Keep in mind that sprites reside 
on planes, and remember that lower-numbered sprites pass in 
front of higher-numbered sprites when two or more are 
coincident (at the same location). However, only that portion 
of the higher-numbered sprite that is behind the foreground 
color of the lower-numbered sprite is actually blocked out. 
The portion that is behind the background color (transparent) 
still appears on the screen. 

The following short program illustrates this. It defines two 
sprites. One is a solid square; the other is a triangle. When the 
two occupy the same location, you can see that only the por- 
tion of the square directly behind the triangle is blocked out. 


100 CALL CLEAR 

110 CALL CHAR(96,“FFFFFFFFFFFFFFFF”’) 

120 CALL CHAR(97,0000183C7EFF0000’’) 

130 CALL MAGNIFY(2) 

140 CALL SPRITE(#1,97,7,90,90,0,3,#2,96,3,90,140,0,—3) 
150 FOR L=1 TO 1400 :: NEXT L 

160 GOTO 140 


Program 3-3, ‘‘Kaleidoscope,’’ shows how this concept can 
be used to generate impressive multicolor graphics. It ran- 
domly displays four moving patterns (out of a possible six). 
Each pattern is assigned a randomly selected color, and the 
patterns and colors blend in a way that simulates a 
kaleidoscope. 


How Kaleidoscope Works 

Line(s) 

100 Clear the screen. 

110 Seed the random number generator. 
120 Set the letters of the alphabet to white. 
130 Set the screen color to black. 


140-190 Define the six patterns that will be used in the pro- 
gram. The patterns are simply symmetrical shapes that, 
when combined, will form a kaleidoscope effect. The 
sprites will have a magnification factor of 4, which 
means each pattern defines four contiguous characters. 
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200 


210 


220 
230 


240 


250 


Notice that the ASCII codes used to define the patterns 
are all evenly divisible by four. 


Load the C array with the six color codes that will be 
used by the sprites. 

Load the CS array with the ASCII codes which define 
the six patterns. 

Display the program title. 

Set the sprite magnification factor to 4 (double-sized 
and magnified). 

Randomly select one of the six character patterns and 
one of the six colors. 


Define the sprite with the lowest precedence (#4). The 
pattern and color come from the random selection in 
lines 200-210. 


260-320 Define the remaining three sprites. The character pat- 


350 


tern and color are randomly selected. All four sprites 
have the same initial screen location (row 90, column 
100). Lines 270, 300, and 330 are timing loops. 


Start the process over. The overall effect is a contin- 
ually changing kaleidoscope of patterns and colors. 


Program 3-3. Kaleidoscope 


188 
112 
120 
138 
148 
150 
168 
170 
186 
196 
200 
210 


220 
238 
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CALL CLEAR 
RANDOMIZE 

FOR L=5 TO 8 :: CALL COLOR(L,16,1):: NEXT L 
CALL SCREEN(2) 

CALL CHAR(96, "FF80869F989493929393949859F8980FF 
FFO161F91929C94949C92919F9G1G1FF") 

CALL CHAR(1064, "3E2AD3A2CE8EFC2121FC8ECEA2D32A3 
E7C054CB4573713F84843F717345CB5'47¢c") 

CALL CHAR(112, "FE8080838084921111928480838080F 
E7F0181C10121498888492161C1910172") 

CALL CHAR(120, "FFECD8BGE0C784858584C 7EDBOD8ECF 
FFF371B@D@07E321A1A121E3070D1B37FF") 

CALL CHAR(128, "FFCOAG9I3896492999992848993A0COF 
PFFO385C99121499999492191C90503FF") 

CALL CHAR(136, "3F4F8783C1EOFGFS8F8FGEGC183874F3 
FFCF2E1C183070F1F1FOFO783ClE1F 2FC") 

C(1)=13 :: C(2)=5 :: C(3)=9 :: C(4)=12 :: c(5) 
=14 :: c(6)=16 

CS(1)=96 :: CS(2)=184 :: cS(3)=112 :: cs(4)=12 
6 :: CS(5)=128 :: cS(6)=136 

DISPLAY AT(4,3):"K ALEIDOSCOP BE" 

CALL MAGNIFY (4) 


ES SETS 


248 S4=1+INT(RND*6):: C4=1+INT(RND*6) 
258 CALL SPRITE(#4,cS(S4),C(C4),96,128) 
268 S3=l1+INT(RND*6):: C3=1+INT(RND*6 ) 
27@ FOR L=1 TO 25 :: NEXT L 

26@ CALL SPRITE(#3,CS(S3),C(C3),908,190) 
290 S2=1+INT(RND*6):: C2=1+INT(RND*6) 
300 FOR L=l1 TO 25 :: NEXT L 

318 CALL SPRITE(#2,CS(S2),C(C2),98,180) 
326 S1=1+INT(RND*6):: C1l=1+INT(RND*6) 
330 FOR L=1 TO 25 :: NEXT L 

348 CALL SPRITE(#1,CS(S1),C(C1),98,100) 
356 GOTO 249 


Controlling Sprites in BASIC Programs 

In order for sprites to be truly useful in your programs, you 
need a way to control them. This is particularly true for 
games, when the person at the keyboard must be able to con- 
trol a sprite’s location, speed, or direction. 

One way to do this is to have the program redo the CALL 
SPRITE subprogram each time a change is required. This was 
done in the previous program, “Kaleidoscope.” Usually, how- 
ever, it is not necessary to completely redefine a sprite. 
Extended BASIC provides several subprogram commands that 
let you change only a specific parameter. 


Changing a Sprite’s Location 

A sprite’s location on the screen can be changed by using the 
CALL LOCATE subprogram. All of the sprite’s other attributes 
are left intact. 


CALL LOCATE(#sprite number, dot-row, dot-column....) 


Sprite number identifies the sprite that will have its loca- 
tion changed. It is an integer in the range 1-28 and may be a 
numeric literal, numeric variable, or numeric expression. It is 
always preceded by the # symbol. 

Dot-row identifies the new row location for the sprite. It 
is an integer in the range 1-256 and may be a numeric literal, 
numeric variable, or numeric expression. Dot-column identifies 
the new column location for the sprite and is also an integer 
in the range 1-256. 

The following short program illustrates how CALL 
LOCATE works. It defines a sprite in the shape of an A and 
then randomly locates it on the screen. 


100 CALL CLEAR 


110 CALL SPRITE(#1,65,2,90,125) 
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120 FOR L=1 to 500 :: NEXT L 
130 CALL LOCATE(#1,1+INT(RND*192),INT(RND*250)) 
140 GOTO 120 


Changing a Sprite’s Motion 

-A sprite’s direction and speed can be changed using the CALL 
MOTION subprogram. All of the sprite’s other attributes are 
left intact. The subprogram has the following format: 


CALL MOTION(#sprite number, row velocity, column 
velocity,...) 


Sprite number identifies the sprite. It is an integer in the 
range 1-28 and may be a numeric literal, numeric variable, or 
numeric expression. It is always preceded by the # symbol. 

Row velocity determines the sprite’s vertical speed. It is 
an integer in the range —128 to 127. A positive value moves 
the sprite downward; a negative value moves the sprite 
upward. The sprite’s speed is determined by how far the row- 
velocity value is from 0. That is, as the value increases from 0 
to 127 or decreases from 0 to —128,:the speed increases. A 
value of 0 indicates no vertical motion. 

Column velocity determines the sprite’s horizontal speed 
and is also an integer in the range —128 to 127. A positive 
value moves the sprite to the right; a negative value moves 
the sprite to the left. Horizontal speed increases as the value 
of column velocity gets further from 0. 

Diagonal motion is achieved by using combinations of 
row and column velocities. For example, a row velocity of 20 
and column velocity of 20 moves the sprite down and to the 
right. 

: The following short program illustrates how CALL 
MOTION works. It creates a sprite in the middle of the screen 
and then moves it around randomly by changing the row and 
column velocities. 


100 CALL CLEAR 

110 RANDOMIZE 

120 CALL CHAR(96,“81423C18183C4281”) 
130 DISPLAY AT(2,10):“DOODLEBUG”) 
140 CALL SPRITE(#1,96,2,90,125) 

150 A=INT(RND*20)—INT(RND*20) 

160 B=INT(RND*20)—INT(RND*20) 

170 CALL MOTION(#1,A,B) 

180 GOTO 150 
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Line 100 clears the screen, and 110 seeds the random 
number generator. Line 120 defines the sprite pattern. Line 
140 creates the sprite in the middle of the screen. Lines 150- 
160 generate row and column velocities between —19 and 19. 
Line 170 issues the CALL MOTION subprogram for sprite #1 
using the row and column velocities obtained randomly in 
lines 150-160. Line 180 puts the program in an endless loop. 


Controlling Sprites with Joysticks 

Joysticks provide one means of communicating with your TI. 
They allow you to move objects, control motion, and fire 
lasers. Of course, the program must be designed to acknowl- 
edge the instructions coming from the joysticks. This is done 
by using the CALL JOYST subprogram. 


CALL JOYST(key unit, X-return, Y-return) 


When your program encounters a CALL JOYST statement, 
the TI queries the joystick port to determine the direction in 
which the stick is pushed. Key unit is the number of the joy- 
stick being tested. It is an integer with a value of 1 or 2, 
corresponding to joystick 1 or joystick 2. 


Figure 3-4. CALL JOYST Return Values 


(0,4) 


(—4,0) (4,0) 


(—4,—4) 


(0,—4) 
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The result of the query is returned to your program as 
values for the two variables identified by X-return and Y- 
return. The values returned of variables indicate the direction 
in which the stick was pushed. The following short program 
illustrates how the values may be used to control motion. It 
uses the joystick to move a crosshair sight around the screen. 
The ALPHA LOCK key must be up. 


100 CALL CLEAR 
110 CALL CHAR(96,“181818FFFF181818”) 
120 CALL MAGNIFY(2) 

130 CALL SPRITE(#1,96,2,90,125) 

140 CALL JOYST(1,X,Y) 

150 CALL MOTION(#1, —Y,X) 

160 GOTO 140 


Line 100 clears the screen. Line 110 defines the crosshair 
pattern. Line 120 sets a magnification factor of 2, and line 130 
defines the sprite on the screen. Line 140 queries the joystick 
and places the returned values in X and Y. Line 150 then 
moves the sprite based on the values of X and Y, and line 160 
initiates a loop to continue the process. 

If the joystick were pushed to the left, the returned values 
would be X= —4 and Y=0. The row velocity in the CALL 
MOTION command is determined by —Y, which results in 
—0 or just 0. The column velocity is determined by X, which 
is —4. A row velocity of 0 and column velocity of —4 moves 
the sprite (crosshair) to the left. 

The other joystick positions will return different values to 
produce an appropriate effect on the sprite. When the joystick 
is not pushed (0,0), the sprite will be stationary. 

You can increase or decrease the sprite’s speed by apply- 
ing a factor to the CALL MOTION velocities. For example, if 
you wanted the sprite to move four times faster, you could use 
the following line: 


CALL MOTION(#1,—4*Y,4*X) 


Controlling Sprites from the Keyboard 

There are situations in which you might want to use the TI 
console keyboard, instead of joysticks, to control the action in 
a program. For instance, a program might require more infor- 
mation than just direction. Or, for that matter, you might not 
have any joysticks. In such cases, the CALL KEY subprogram 
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lets you use the keyboard to control the program action. 
CALL KEY(key unit,return variable,status code) 


When a CALL KEY subprogram command is encountered 
in a program, the computer queries the keyboard to determine 
if a key was pressed. If one was pressed, a value returned by 
the subprogram identifies the key. The value returned depends 
on the key unit. 

When key-unit is 0, the return variable value is the same 
as the ASCII character code for that key, including lowercase 
letters. In other words, pressing SHIFT-A would return a value 
of 65, while pressing an unshifted A would return a value of 
97. When key-unit is 3, the return variable value is the same 
as the uppercase ASCII character code for that key. In this 
instance, pressing either a shifted or unshifted A would return 
a value of 65. In both cases, the full keyboard can be used. 

When key unit is 1 or 2, the console is placed into the 
split-keyboard mode. Key-unit 1 accepts input from the left 
side of the keyboard, while key-unit 2 accepts input from the 
right side. This allows each player in two-player games to 
have his or her own set of control keys. 

When the console is in split-keyboard mode, the return 
variable is not the same as the ASCII code for that key. 
Rather, the value returned is one of those listed in Table 3-1. 

Status code indicates whether or not a key was pressed. A 
status of 0 indicates that no key was pressed. A status of —1 
indicates that the key pressed was the same as the last one 
pressed; a status of 1 indicates a new key was pressed. 

The following program illustrates how CALL KEY can be 
used to control the action. It moves a crosshair around the 
screen by using the E, X, S, and D keys in full-keyboard 
mode. The ALPHA LOCK key must be depressed. 


100 CALL CLEAR 

110 CALL CHAR(96,“181818FFFF181818”) 

120 CALL MAGNIFY(2) 

130 CALL SPRITE(#1,96,2,90,125) 

140 CALL KEY(0,K,S) 

150 Y=(K=88)—(K=69) :: X=(K=83)—(K=68) 
160 CALL MOTION(#1,— Y,X) 

170 GOTO 140 


Line 100 clears the screen. Line 110 defines the character 
pattern for the crosshair. Line 120 sets a magnification factor 
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Table 3-1. Split Keyboard Codes 


Left Right Code 
X M 0 
A H 1 
S J 2 
D K 3 
W U 4 
E I 5 
R O 6 
2 7 7 
3 8 8 
4 9 9 
5 0 10 
T P 11 
F L 12 
V : 13 
Cc ; 14 
Z N 15 
SHIFT-B / 16 
G ; 17 
Q Y 18 
1 6 19 


of 2 for sprites. Line 130 displays the sprite on the screen, and 
line 140 queries the keyboard to see if a key was pressed. 

Line 150 uses two logical expressions to set the values of 
X and Y. A logical expression returns a value of —1 for a true 
condition and 0 for a false condition. For example, if the S key 
(ASCII 83) were pressed, K=83 would be true, resulting in a 
value of —1; K=68 would be false, resulting in a value of 0. 
Consequently, X would be —1 (—1 — 0). Y would be 0 since 
both K=88 and K=69 are false (0 — 0). These calculations 
give the CALL MOTION statement in line 160 a row velocity 
of 0 and a column velocity of —1. As a result, the crosshair 
moves to the left. Line 170 continues the process. 

When no key is pressed, all values would equal 0 and the 
crosshair would be stationary. However, you could keep the 
crosshair, or any sprite, moving in the direction indicated by 
the last key pressed by adding the following line: 


145 IF S=0 THEN 140 
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This instruction prevents a “no key pressed” condition 
from reaching the CALL MOTION statement. 

You could, of course, use a series of IF statements in place 
of the logical expressions in line 150 to determine which key 
had been pressed. For example, the following lines would 
have the same result as the logical expressions: 


150 IF K=83 THEN Y=~—1 
151 IF K=68 THEN Y=1 
152 IF K=88 THEN X=1 
153 IF K=69 THEN X=~—1 


As you can see, however, this method requires more pro- 
gram lines than does the use of logical expressions. It is also 
less efficient. 


Joystick and Keyboard Control 

Programs may be set up so that they can use either the joy- 
sticks or the keyboard to control the action, with the program 
itself determining which will be used. The following program, 
again using the crosshair sight example, shows how this is 
accomplished. The ALPHA LOCK key must be up. 


100 CALL CLEAR 

110 CALL CHAR(96,“181818FFFF181818”) 

120 CALL MAGNIFY(2) 

130 CALL SPRITE(#1,96,2,90,125) 

140 CALL KEY(3,K,S):: IF S=0 THEN CALL JOYST(1,X,Y):: 
GOTO 160 

150 Y=((K=88)—(K=69))*4 :: X=((K=83)—(K=68))*4 

160 CALL MOTION(#1,—Y,X) 

170 GOTO 140 


Line 100 clears the screen. Line 110 defines the sprite pat- 
tern, and line 120 gives it a magnification factor of 2. Line 130 
creates the sprite on the screen. Line 140 checks to see if a key 
has been pressed. If not, the joystick port is checked, and the 
logical expressions in line 150 are bypassed. If a key was 
pressed, then the joystick check is bypassed, and the logical 
expressions in line 150 are used to calculate the values for the 
CALL MOTION subprogram in line 160. Line 170 continues 
the process. The CALL KEY subprogram in line 140 uses key- 
unit 3 so that the value returned will always represent an 
uppercase letter. This is necessary since the logical expressions 
in line 150 assume uppercase. 


75 


Sprites es 


Changing Sprite Patterns 
There are many times when it is useful to change a sprite’s 
pattern in a program. For example, if a car-shaped sprite was 
moving from left to right and then changed direction, you 
would want the front of the car to be facing the new direction 
and would need a sprite pattern for each direction the car 
would face. Multiple patterns are also required whenever 
animation is involved. Just as cartoons are created by contin- 
ually changing frames, computer animation is created by 
changing sprite patterns. Of course, all necessary patterns 
must first be defined. 

A sprite’s pattern can be changed by using the CALL 
PATTERN subprogram. It has the following format: 


CALL PATTERN(#sprite number,character code) 


Sprite number identifies the sprite to be changed. Charac- 
ter code is a numeric literal, numeric variable, or numeric 
expression that identifies the ASCII code to be used for the 
sprite’s pattern. It must be an integer in the range 32-143. The 
desired pattern would have been defined earlier in the pro- 
gram by the CALL CHAR subprogram. 

Program 3-4, ‘Birds At Night,” demonstrates how CALL 
PATTERN can produce animation. It displays a starlit night, a 
full moon, and a flock of birds flying across the night sky. 


How Birds at Night Works 
Line(s) 
100 Clear the screen. 


110-120 Define the patterns used to animate the birds. ASCII 
code 96 contains the pattern for birds with wings in 
the up position; code 97 contains the pattern for birds 
with wings in the down position. 


130 Define the four characters that make up the moon. 

140 Define the stars. 

150-180 Randomly place 50 stars on the screen. 

190 Create the four sprites which make up the moon. 

200 Set the screen color to dark blue to simulate nighttime. 
210-240 Generate ten sprites for the flock of birds. 

250-260 Initiate a loop that repeats ten times. Each iteration 


assigns the wings-down pattern to one of the sprites. 
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270-280 Initiate a loop that repeats ten times. Each iteration 
assigns the wings-up pattern to one of the 
sprites. 

290 Produces an endless loop to keep the process going. 


Program 3-4. Birds at Night 


1@6 CALL CLFAR 

110 CALL CHAR(96, "9941221498000000" ) 

12@ CALL CHAR(97, "6820987 7G8G0GH0O " ) 

136 CALL CHAR(120, "OVO7UF1FIF3F3F3F3F3F3F1F1FOFO76 
OOGEOFOFSFSFCFCFCFCFCFCF8F8FUE BBW " ) 

148 CALL CHAR(112,"@0@1"):: CALL COLOR(11,16,1) 

158 FOR L=1 TO 50 

16@ A=1+INT(RND*30):: B=1+INT(RND*22) 

178 CALL HCHAR(B,A,112,1) 

180 NEXT L 

198 CALL SPRITE(#21,128,15,30,40,#22,121,15,38,40, 
#23,122,15,30,48,#24,123,15,38,48) 

200 CALL SCREEN(5) 

216 FOR L=1l TO 20 

226 CALL SPRITE(#L,96,2,35+INT(RND*56), 249,8,-3) 

23€ FOR L2=1 TO INT(RND*250):: NEXT L2 

24@ NEXT L 

25@ FOR L=1l TO 20 

26@ CALL PATTERN(#L,97):: NFXT L 

270 FOR L=11l TO 26 

288 CALL PATTERN(#L,96):: NEXT L 

299 GOTO 250 


Combining Techniques 

The preceding programs have served primarily to illustrate 
particular concepts and techniques. More elaborate programs, 
however, usually combine several different techniques. Pro- 
gram 3-5, “Dot Gobbler,” is the result of one such 
combination. 

The program displays a board covered with randomly 
placed dots. In the middle of the board is the Dot Gobbler, a 
creature that gets its nourishment by eating dots. The object of 
the game is to consume dots by moving the Dot Gobbler 
around the board with the E, X, S, and D (arrow) keys. 

The Dot Gobbler eats dots as he moves across them. But 
he can only move in a direction that has a dot, so you'll have 
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to think ahead. Once the Gobbler can no longer move, the 
game is over. Your score is based on the number of dots 
eaten. 


How Dot Gobbler Works 

Line(s) 

100 Clear the screen. 

110 Seed the random number generator. 

120-160 Define the five four-character patterns required for the 


Dot Gobbler. ASCII code 96 defines the Gobbler with 
his mouth closed; code 100 defines the Gobbler mov- 
ing to the right; code 104 defines the Gobbler moving 
to the left; code 108 defines the Gobbler moving 
upward; and code 112 defines the Gobbler moving 


downward. 
170 Define the border pattern for the board. 
180 Define the dot pattern. 
190 Draw the border. 
200-230 Randomly place the dots on the board. 
240 Set the Gobbler’s magnification factor to 3. 
250 Display the Gobbler (sprite) on the screen. 
260-280 Set variables which contain the Gobbler’s initial row 


and column position. Display instruction. 


290 Use full keyboard to get information from console. 
Active keys are E, S, D, and X—the arrow keys. 


300-330 Route the program to the appropriate logic as deter- 
mined by the key pressed. 


340 End the game and start over. 
350 Keep checking for a pressed key. 


360-440 Control logic for moving to the right. Line 360 deter- 
mines if a move to the right is valid by checking to see 
if the character to the right is a dot (ASCII 116). If not, 
line 370 checks another key. If the character is a dot, 
line 380 increments the sprite-column position by 8 
(one character) and moves the sprite to that location. 
Line 390 closes the Gobbler’s mouth, and line 400 
introduces a short delay. Line 410 then opens 
the Gobbler’s mouth. Line 420 updates the Gobbler’s 
character-column and erases the eaten dot. Line 430 
updates the screen display, and line 440 checks for 
another key. 
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450-530 Control logic for moving to the left. Similar to lines 


360-440 except sprite-column and character-column 
are decremented by 8 and 1, respectively. 


540-620 Control logic for moving upward. Sprite-row and 


character-row are decremented. 


630-710 Control logic for moving downward. Sprite-row and 


character-row are incremented. 


Program 3-5. Dot Gobbler 


100 
1190 
120 


130 


146 


156 


166 


176 


189 
190 


206 
219 
229 
230 
248 
250 
260 
2768 
289 
290 
3989 
319 
320 
336 
349 


CALL CLEAR 

RANDOMIZE 

CALL CHAR(96, "O™1F3F7F7F7F7F7F7F7F7F/7F7F3F1F00 
O@FS8FCFEFEFEPEFEFEFEFEFEFEFCF896 " ) 


CALL CHAR(1090, "OG1F3F7F7F7F7F7F7E787E/7F7F3F1F@ 
OOOFSFCF6FEFEFEQGOOUGOO2FEFEFCF 886") 


CALL CHAR(1904, "OO1F3F6F7F7F7FO190000407F7F3F1FO0 
OOOFSFCFEFEFEFEFEFE3EFEFCFEFCEF 886") 


CALL CHAR(188, "@91C3878787878787C7D7D7F7F3F1FO 
069787C767E7E7E7EFEFEFEFEFEFCF 806") 


CALL CHAR(112, "@O1F3F7F7F7D7D7C7878787878381C@ 
@9O0FS8FCFEFEFEFEFE7E7E7E7E767C7 886" ) 


CALL CHAR(120, "FFFFFFFFFFFFFFFF"):: CALL COLOR 
(12,14,1) 

CALL CHAR(116, "@009001818000006") 

CALL HCHAR(1,1,129,32):: CALL HCHAR(21,1,128,3 
2):: CALL VCHAR(1,1,120,20):: CALL VCHAR(1,32, 
126,20) 

FOR L=2 TO 20 :: FOR L2=2 TO 31 

IF RND>.30 THEN CALL HCHAR(L,L2,116,1) 

NEXT L2 :: NEXT L 

CALL HCHAR(11,16,116,6) 

CALL MAGNIFY (3) 

CALL SPRITE(#1,100,5,76,124) 

CR=11 :: CC=17 :: SR=76 :: SC=124 

DISPLAY AT(22,1):"E,S,D,X TO MOVE - @ TO QUIT" 
DISPLAY AT(24,8):"SCORE: " 

CALL KEY(3,K,S):: IF S=@ THEN 296 

IF K=68 THEN 360 

IF K=83 THEN 450 

IF K=69 THEN 54@ 

IF K=88 THEN 638 

IF K=81 THEN CALL DELSPRITE(ALL):: SCOR=0 :: G 
OTO 186 
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358 GOTO 290 

36@ CALL GCHAR(CR,CC+1,CH) 

370 IF CH<>116 THEN 296 

388 Sc=SC+8 :: CALL LOCATE(#1,SR,SC) 

398 CALL PATTERN(#1,96) 

4@@ FOR L=1 TO 10 :: NEXT L 

41@ CALL PATTERN(#1,109) 

428 cc=CcC+l :: CALL HCHAR(CR,CC,32,1) 

438 SCOR=SCOR+1 :: DISPLAY AT(24,16):SCOR 
448 GOTO 296 

45@ CALL GCHAR(CR,CC-1,CH) 

46@ IF CH<>116 THEN 290 

47@ sc=Sc~-8 :: CALL LOCATE(#1,SR,SC) 

488 CALL PATTERN(#1,96) 

499 FOR L=1 TO 16 :: NEXT L 

508 CALL PATTERN(#1,104) 

518 cc=cc-1 :: CALL HCHAR(CR,CC, 32,1) 

528 SCOR=SCOR+1 :: DISPLAY AT(24,16):SCOR 
538 GOTO 29 

548 CALL GCHAR(CR-1,CC,CH) 

550 IP CH<>116 THEN 296 

56@ SR=SR~-8 :: CALL LOCATE(#1,SR,SC) 

576 CALL PATTERN(#1,96) 

586 FOR L=1 TO 18 :: NEXT L 

598 CALL PATTERN(#1,108) 

600 CR=CR-1l :: CALL HCHAR(CR,CC, 32,1) 

618 SCOR=SCOR+1 :: DISPLAY AT(24,16):SCOR 
628 GOTO 296 

638 CALL GCHAR(CR+1,CC,CH) 

640 IF CH<>116 THEN 296 

659 SR=SR+8 :: CALL LOCATE(#1,SR,SC) 

660 CALL PATTERN(#1,96) 

678 FOR L=1 TO 10 :: NEXT L 

688 CALL PATTERN(#1,112) 

698 CR=CR+1 :: CALL HCHAR(CR,CC, 32,1) 

789 SCOR=SCOR+1 :: DISPLAY AT(24,16):SCOR 
716 GoTO 296 


Sprite Editor 


By now it should be obvious that sprites require a lot of pat- 
tern definition. Before you rush out to buy a dozen pads of 
graph paper, however, take a look at the next program. Called 
“Sprite Editor,” it lets you define sprites on the screen. It will 
provide you with either an 8 x 8 (single-sized) or 16 x 16 
(double-sized) grid; you need only to indicate which pixels 
should be turned on in the grid by moving the cursor and 
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pressing 1. When you're finished, the program will display the 
sprite on the screen. You can magnify it and change its color. 
If it doesn’t look quite right, you can go back to the original 

grid and modify the pattern. Once you are satisfied, the com- 
puter will display the hex character pattern required by CALL 


CHA 


R. 


Program 3-6. Sprite Editor 


166 
116 
126 
139 


CALL CLEAR 

CALL CHAR(96, "FFO1619101810181") 

CALL CHAR(104, "PFFFFFFFFFFFFFFF") 

CALL CHAR(112, "FFC3A59999A5C3FF") 

HEX $="9123456789ABCDEF " 

CALL COLOR(9,2,16,18,2,2) 

DISPLAY AT(4,3):"** SPRITE EDITOR **" 
DISPLAY AT(8,1):"l - ONE CHARACTER SPRITE" 
DISPLAY AT(1@,1):"2 - FOUR CHARACTER SPRITE" 
DISPLAY AT(14,1):"SELECT----> " 

ACCEPT AT(14,12)VALIDATE("12")SIZE(-1)PEEP:S 
CALL CLEAR 

FOR Ll=1 TO S*8 

DISPLAY AT(L1+2,3):RPTS (CHR$(96),S*8) 

NEXT Ll 

DISPLAY AT(1,1):"@=PIXEL OFF --- 1=PIXEL ON" 
DISPLAY AT(20,1):"E MOVE CURSOR UP" 
DISPLAY AT(21,1):"X MOVE CURSOR DOWN" 
DISPLAY AT(22,1):"S MOVE CURSOR LEFT" 
DISPLAY AT(23,1):"D MOVE CURSOR RIGHT" 
DISPLAY AT(24,1):"Q QUIT SPRITE DEFINITION" 


tou ud 


ROW=17 :: COL=33 :: CR=3 :: CC=3 
CALL SPRITE(#1,112,7, ROW, COL) 
FOR D=l TO 25 :: NEXT D 


CALL KEY(3,K,ST):: IF ST=@8 THEN 348 
IF K=81 THEN 579 

IF K=69 THEN GOSUB 439 

IF K=88 THEN GOSUB 469 

IF K=83 THEN GOSUB 490 

IF K=68 THEN GOSUB 528 

IF K=48 THEN GOSUB 558 

IF K=49 THEN GOSUB 560 

GOTO 3290 

IF ROW-8<17 THEN 459 
ROW=ROW-8 :: CR=CR-1l 

RETURN 

IF ROW+8> (17+(63*S) )THEN 480 
ROW=ROW+8 :: CR=CR+1 

RETURN 
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498 IF COL-8<33 THEN 519 

508 COL=COL-8 :: CC=CC-1 aah 

510 RETURN 

528 IF COL+8>(33+(63*S) )THEN 540 

530 COL=COL+8 :: Cc=cc+l 

540 RETURN 

558 DISPLAY AT(CR,CC):CHRS(96);:: RETURN 

568 DISPLAY AT(CR,CC):CHRS$(104);:: RETURN 

578 CALL DELSPRITE( #1) 

586 GOSUB 928 

598 IF S=l THEN MG=l1 ELSE MG=3 

698 CALL MAGNIFY(MG) 

619 CALL SPRITE(#2,120,2,40,1998) 

620 DISPLAY AT(19,1):"C = SET SPRITE COLOR" 

638 DISPLAY AT(20,1):"M = MAGNIFY SPRITE" 

648 DISPLAY AT(21,1):"P = CHANGE SPRITE PATTERN" 

65@ DISPLAY AT(22,1):"D = DISPLAY SPRITE PATTERN" 

660 DISPLAY AT(23,1):"N = NEW SPRITE" 

676 DISPLAY AT(24,1):"SELECT--->_" 

680 ACCEPT AT(24,11)VALIDATE("CMPDN" )SIZE(-1)BEEP: 
SELS$ 

696 IF SELS="C" THEN 749 

706 IF SELS="M" THEN 796 

718 IF SEL$="P" THEN CALL DELSPRITE(#2):: CALL MAG 
NIFY(1):: COTO 260 

720 IF SELS$="N" THEN CALL DELSPRITE(ALL):: CALL MA 
GNIFY(1):: CALL CLEAR :: GOTO 16G 

730 IF SELS="D" THEN 846 

749 DISPLAY AT(24,1):"SPRITE COLOR (1-16)?" 

758 ACCEPT AT(24,22)VALIDATE(NUMERIC)BEEP:SC 

766 IF SC<l OR SC>16 THEN 750 

776 CALL COLOR(#2,SC) 

780 GOTO 620 

796 IF MG=l THEN MG=2 :: GOTO 836 

800 IF MG=2 THEN MG=1 :: GOTO 838 

818 IF MG=3 THEN MG=4 :: GOTO &38 

826 IF MG=4 THEN MG=3 :: GOTO 830 

838 CALL MAGNIFY(MG):: GOTO 626 

848 DISPLAY AT(19,1):PATS(1) 

850 IF S=2 THEN 878 

860 FOR L1=20 TO 24 :: DISPLAY AT(L1,1):" " :: NEX 
T Ll :: GOTO 899 

876 DISPLAY AT(20,1):PAT$(2):: DISPLAY AT(21,1):PA 
T$(3):: DISPLAY AT(22,1):PATS( 4) al 

886 DISPLAY AT(23,1):" " 

896 DISPLAY AT(24,1):"---> PRESS ANY KEY" = 

906 CALL KEY(3,K,ST):: IF ST=0 THEN 98d 

918 GOTO 626 _— 

926 FOR L=19 TO 24 :: DISPLAY AT(L,1):" " :: NEXT : 
L 
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938 DISPLAY AT(22,5): "STAND BY..." 
946 CR=3 :: CC=3 :: SB=l :: GOSUB 1010 
950 IF S=l THEN 990 


96@ CR=11 :: cC=3 :: SB=2 :: GOSUB 1916 

$74 CR=3 :: CC=1ll :: SB=3 :: COSUB i101 

980 CR=1l1 :: CC=ll :: SB=4 :: GOSUB 1819 

998 CALL CHAR(120,PAT$(1)):: CALL CHAR(121,PATS$(2) 
):: CALL CHAR(122,PAT$(3)):: CALL CHAR(123,PAT 
$(4)) 

1968 RETURN 

1910 PATS(SB)=""_:: FOR L1=CR TO CRt7 


1628 FOR L2=cc TO CC+t7 

1938 CALL GCHAR(L1,L2+2,CH) 

1949 IF CH=96 THEN BITS(L2-CC+l)=0 ELSE BITS(L2-CC 
+1)=1 

1950 NEXT L2 

1968 HIGH=BITS(1)*8+BITS(2)*4+BITS(3)*2+BITS(4)+1 

1878 LOW=B1ITS(5)*8+BITS(6)*4+BITS(7)*2+BITS(8)+1 

1980 PATS (SB) =PATS (SB) &SEG$ (HEX$, HIGH, 1) &SEG$ (HEX$ 
,LOW, 1) 

1696 NEXT Ll 

1168 RETURN 
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he material in Chapter 3 examines various methods for 

controlling sprites from BASIC. Simply controlling 

sprites, however, is usually not enough to produce a 

complete program. There must also be some type of 
feedback mechanism that indicates the status of each of the 
sprites on the screen; such status information can then be used 
to make sprites interact with each other and with nonsprite 
graphics. 

TI Extended BASIC contains three useful subprogram 
commands that allow your program to monitor sprites. CALL 
POSITION can be used to find a sprite’s current location on 
the screen. CALL COINC can be used to determine if two 
sprites, or a sprite and a screen location, are coincident (at the 
same location). Finally, CALL DISTANCE can be used to 
determine how far one sprite is from another sprite or from a 
specified screen location. 

This chapter shows you how to use these commands in 
BASIC programs and how to write complete programs using 
the various sprite subprogram commands. 


Finding a Sprite’s Screen Position 

The CALL POSITION subprogram is used to determine a 
sprite’s current location on the screen. It has the following 
format: 


CALL POSITION (#sprite number,dot row,dot column,...) 


Sprite number identifies the sprite and is always preceded 
by the # symbol. It is an integer in the range 1-28 and may 
be a numeric literal, numeric variable, or numeric expression. 
The row and column locations of the sprite are returned to the 
program in the two integer variables dot row and dot column. 
Dot row identifies one of the 192 possible row positions 
(actually 256 counting the “invisible’’ rows); dot column 
identifies one of the 256 possible column positions. 

In Figure 4-1, for instance, the CALL POSITION sub- 
program would return 10 for the value of R and 15 for the 
value of C. Notice that the locations returned are defined by 
the top left pixel in the sprite. If the sprite identified by that 
particular sprite number did not exist, the values would be 0,0. 
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Figure 4-1. Sprite at Row 10 and Column 15 


The values returned by the CALL POSITION subprogram 
are determined by the location of the sprite at the time the 
command is issued. Consequently, the values returned for a 
moving sprite are only valid for a short period of time (that is, 
while the sprite is still in that location). The values will not be 
updated until another CALL POSITION subprogram com- 
mand is encountered. 

The following short program lets you move a sprite 
around the screen by using the E, S, D, and X keys. The 
sprite’s location, as determined by the CALL POSITION sub- 
program, is displayed at the bottom of the screen. 


100 CALL CLEAR 
110 CALL SPRITE(#1,65,2,90,125) 

120 CALL KEY(3,K,S) 

130 X=(K=83)—(K=68) :: Y=(K=88)—(K=69) 
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140 CALL MOTION(#1,—Y,X) 

150 CALL POSITION(#1,R,C) 

160 DISPLAY AT (23,2):“POSITION: ROW”;R;“COL”;C 
170 GOTO 120 


The information returned by CALL POSITION can be 
very useful in your BASIC programs. You can, for example, 
use the values to determine if a sprite has reached a particular 
location on the screen. You can also prevent sprites from 
wrapping around the screen by continually checking their 
position and then stopping, or changing, their motion when 
they reach the edge. 

You can also use the values returned by the CALL 
POSITION subprogram to have one sprite shoot at or chase 
another sprite. Keep in mind that the dot row and dot column 
values simply identify a sprite’s location on the 256 x 192 
screen grid. By identifying the location of both sprites, a sim- 
ple formula can be used to calculate the values required by the 
CALL MOTION subprogram to move one sprite toward the 
other. 

To understand how this works, first look at Figure 4-2. It 
shows the location for sprite #1 as dot row 50 and dot column 
50. For the first example, assume that sprite #2 was located at 
dot row 30 and dot column 30. Subtracting the dot row for 
sprite #1 from the dot row for sprite #2 gives the row veloc- 
ity. Subtracting the dot column for sprite #1 from the dot- 
column for sprite #2 gives the column velocity. These num- 
bers can then be used by the CALL MOTION subprogram. For 
example: 


30 (dot row sprite#2) 
—50 (dot row sprite#1) 
—20 (row velocity) 

30 (dot column sprite#2) 
—50 (dot column sprite#1) 
—20 (column velocity) 


Recall from the section on CALL MOTION (Chapter 3) 
that a negative row velocity moves a sprite upward, while a 
negative column velocity moves a sprite to the left. In this 
case, a row velocity of —20 and column velocity of —20 
would move sprite #1 up and to the left—directly toward 
sprite #2. 
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In similar fashion, if sprite #2 was located at dot row 30 
and dot column 70, then the above formula would produce a 
row velocity of —20 and a column velocity of 20. These veloc- 
ities would move sprite #1 up and to the right. If sprite #2 
was located at dot row 65 and dot column 50, the formula 
would produce a row velocity of 15 and a column velocity of 
0. As a result, sprite #1 would move straight down. 

The only problem with this approach is that a sprite’s 
speed is determined by its distance from another sprite. But 
since distance would not generally be the controlling factor, 
this could present a problem. It is easily remedied, however, 
by dividing the resulting row and column velocities by their 
respective absolute values. Using the first example above, — 20 
divided by 20 (the absolute value of —20) results in —1. A 
row velocity of —1 and column velocity of —1 still moves the 
sprite up and to the left. Since the values produced by the 
division will always be 1 or —1, you could then multiply 
them by the speed factor desired (for example, —1* 8 = —8). 

The following program, ‘Sprite Chase,’’ demonstrates 
how these concepts can actually be used. The program dis- 
plays two sprites on the screen. The red sprite will attempt to 
chase the blue sprite, and the object is to use the E, S, D, and 
X (arrow) keys to move the blue sprite to evade the red one. 


How Sprite Chase Works 


Line(s) 

100 Clear the screen. 

110 Define the pattern used by the two sprites. 
120 Display the program title on the screen. 


130-140 Define the two sprites. Sprite #1 is the red “chase’’ 
sprite and is initially positioned at row 90, column 125. 
Sprite #2 is the blue “chased” sprite and is initially 
positioned at row 120, column 20. 

150-160 Check for keyboard input. If a key has been pressed, 
then line 160 uses logical expressions to determine the 
values of X and Y. These values are then multiplied by 
8 in order to give sprite #2 a relative speed of 8. 

170 Determine the positions of both sprites. The row and 
column for sprite #1 are placed in R1 and C1. The row 
and column for sprite #2 are placed in R2 and C2. 

180-210 These lines make sure that sprite #1 is not moved off 
the screen because of row or column wraparound. If 


91 


Advanced Sprite Handling Techniques EEE 


220 


230-240 


250 
260 


270 


280 


290 


the row position is less than 13 or greater than 170, 
vertical motion is inhibited by the MIN and MAX func- 
tions in lines 180-190. If the column position is less 
than 16 or greater than 232, horizontal motion is 
inhibited by MIN and MAX functions in lines 200-210. 
The overall effect is to prevent the sprite from moving 
off the screen. 

Put sprite #2 in motion in the direction indicated by 
the X and Y values calculated in line 160. The idea is 
to keep it away from the ‘‘chasing”’ sprite (#1). 

Set variables A and B to the values required by the 
CALL MOTION subprogram in line 270 to move sprite 
#1 toward sprite #2. The values are determined by 
subtracting the row and column position of sprite #1 
from the row and column position of sprite #2. The 
resulting values are then divided by their respective 
absolute values in order to equalize the row and col- 
umn velocities. Finally, the equalized values are mul- 
tiplied by 9, which gives sprite #1 a relative speed of 
9. Doing this gives sprite #1 a slight speed advantage. 
The IF statements in these two lines make sure that 
the subtraction does not cause a divide-by-zero error. 
Check to see if the two sprites are at least six pixels 
apart. 

If the two sprites are not six pixels apart, sprite #2 has 
been caught. This line displays the GOTCHA message 
and ends the program. 

If the two sprites are more than five pixels apart, sprite 
#2 has not yet been caught. The CALL MOTION sub- 
program command in this line gets sprite #1 moving 
toward sprite #2 by using the values calculated in lines 
230-240. 

Increment the score counter and display it on the 
screen. 

Branch back to start the process over. 


Program 4-1. Sprite Chase 


188 CALL CLEAR 

11@ CALL CHAR(96, "O@U183C7EFF7E3C1800") 

126 DISPLAY AT(1,8): "SPRITE CHASE” 

138 CALL SPRITE(#1,96,7,98,125) 

144 CALL SPRITE(#2,96,5,120,20) 

158 CALL KEY(3,K,S) 

160 X=((K=83)-(K=68))*8 :: Y=((K=88)-(K=69))*8 
176 CALI. POSITION(#1,R1,C1,#2,R2,C2) 
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189 IF R2<13 THEN Y=MIN(Y,@) 

190 IF R2>178 THEN Y=MAX(Y,9) 

260 IF C2<16 THEN X=MAX(X,9) 

219 IF C2>232 THEN X=MIN(X,9) 

228 CALL MOTION( #2,-Y,X) 

23G IF R1l=R2 THEN A=0 ELSE A=(R2-R1)/ABS(R2-R1)*9 

249 IF Cl=C2 THEN B=8 ELSE B=(C2-Cl)/ABS(C2-Cl1)*9 

259 IF ABS(R1-R2)>5 OR ABS(C1-C2)>5 THEN 276 

260 CALL DELSPRITE(ALL):: DISPLAY AT(10,12): "GOTCH 
A!" :: STOP 

278 CALL MOTION(#1,A,B) 

280 cT=CT+l1 :: DISPLAY AT(24,10): "SCORE: ";CT 

298 GOTO 15@ 


Determining When Sprites Are Coincident 

In programs involving sprites, it is often important to know if 
two sprites are in the location (coincident) or if a sprite is at a 
specified screen location. One way to do this is to get the loca- 
tion of each sprite by using CALL POSITION and then 
comparing the locations. This is the method used in the pre- 
vious program. 

Checking the values from a CALL POSITION subprogram 
isn’t really necessary, however, since Extended BASIC pro- 
vides a subprogram specifically designed to detect sprite 
coincidence. This subprogram is CALL COINC, which may 
have any of the following formats: 


Format 1 

CALL COINC(#sprite number, #sprite number, tolerance, 
numeric variable) 

Format 2 

CALL COINC(#sprite number, dot row, dot-column, 
tolerance, numeric variable) 

Format 3 

CALL COINC(ALL, numeric variable) 


When Format 1 is used, the sprite identified by the first 
sprite number is checked for coincidence against the sprite 
identified by the second sprite number. Both numbers must be 
integers in the range 1-28 and may be numeric literals, 
numeric variables, or numeric expressions. Coincidence is 
determined by the top left pixel of each sprite. When these 
two pixels occupy the same row and column location on the 
screen, the sprites are considered coincident and a value of 
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—1 is placed in numeric variable. When the two sprites are not 
coincident, numeric variable contains a value of 0. 

Tolerance is used to expand the area which two sprites can 
occupy and still be considered coincident. For example, if the 
tolerance is 0, then the top left pixel of each sprite must be at 
exactly the same location to be considered coincident. How- 
ever, if a tolerance of 3 is specified, then the sprites are 
considered coincident as long as the left-hand corners of the 
two sprites are within three pixels of each other. Such 
tolerances are especially useful when moving sprites make it 
difficult to detect exact coincidence. 

When Format 2 is used, the sprite identified by sprite 
number is checked for coincidence against the screen location 
identified by dot-row and dot-column. Coincidence exists 
when the top left corner of the sprite is at the specified loca- 
tion or within the range indicated by tolerance. 

With Format 3, coincidence is reported in numeric vari- 
able whenever any pixels in two or more sprites occupy the 
same location. 

The following short program demonstrates how CALL 
COINC works. It displays two sprites on the screen and lets 
you move them with the E, S, D, and X keys. The display at 
the bottom of the screen indicates whether or not the sprites 
are coincident. 


100 CALL CLEAR 

110 CALL CHAR(96,“FFFFFFFFEFFFFFFF”) 

120 CALL SPRITE(#1,96,2,70,125) 

130 CALL SPRITE(#2,96,16,90,125) 

140 CALL KEY(3,K;S) 

150 X=(K=83)—(K=68) :: Y=(K=88)—(K=69) 

160 CALL MOTION(#1,—Y,X) 

170 CALL COINC(#1,#2,0,A) 

180 IF A= —1 THEN DISPLAY AT (23,10):“COINCIDENT” 
ELSE DISPLAY AT (23,10):” ” 

190 GOTO 140 


Notice that the tolerance of the CALL COINC in line 170 
is initially set to 0. The COINCIDENT message will appear 
only when the two sprites are in exactly the same location. If 
you change the tolerance to 3 and RUN the program again, 
you will see the COINCIDENT message displayed as long as 
the top left corners of the two sprites are within three pixels of 
each other. 
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The next program, ‘Air Defense,’”” demonstrates how 
CALL COINC can actually be used in a program. The object 
of the game is to shoot down the alien spacecraft. Your anti- 
aircraft gun is aimed by pressing the X and D keys and fired 
by pressing the space bar. 


How Air Defense Works 


Line(s) 
100 

110 

120 
130-220 


230-250 
260 


270 


280 
290-300 


310 
320-360 


370-400 


410 


Clear the screen. 

Seed the random number generator. 

Initialize program variables. 

Define the patterns used in the program. ASCII codes 
96-98 define the pattern for a gun pointing straight up; 
code 98 defines the pattern for a gun pointing up and 
to the right. ASCII codes 100-102 define the patterns 
used for various alien ships. ASCII code 104 defines 
the pattern used for the base of the screen. ASCII 
codes 112 and 113 define patterns that simulate an 
exploding ship. 

Draw the ground on the screen. 

Create the antiaircraft gun sprite on the screen. It ini- 
tially points straight up. 

Create an alien ship on the screen. The ship’s pattern 
is randomly chosen from one of the three available. 
The ship moves from right to left, at random speed, 
somewhere between rows 20 and 145. 

Check to see if a key was pressed. 

Calculate the player’s rating and display it on the 
screen. 

If no key was pressed on the console, go back and 
check again. 

Determine which key was pressed. If it was S, the gun 
is pointed to the left; if it was D, the gun is pointed to 
the right. In either case, the new pattern for the gun is 
assigned to sprite #1 in line 350, and the program goes 
back to check for another key. If the space bar was 
pressed, go to the routine to fire the gun. 

Fire the gun. Line 370 creates the projectile pattern on 
the screen. Its initial location is determined by the 
direction in which the gun is pointing. Line 380 adds 
to the SHOT accumulator. Line 390 sets the row veloc- 
ity to —30 and the column velocity to 30,0, or —30, 
depending on which way the gun is pointed. Line 400 
puts the projectile in motion. 

Check to see if the projectile has reached the edge of 
the screen. If so, the sprite is deleted. 
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420-430 Check to see if the ship was hit by the projectile. If the 


projectile sprite (#2) and the ship sprite (#3) are 
coincident within a tolerance of 5, the ship was hit. If 
the ship wasn’t hit, go back and check again until the 
projectile is off the screen. 


440-520 Register a hit. Line 440 changes the ship’s color to red. 


Line 450 deletes the projectile sprite. Lines 460 and 
480 change the ship’s pattern to the explosion patterns. 
Lines 470 and 490 are timing loops between the pat- 
tern changes. Line 500 deletes the ship sprite. Line 510 
counts the hit. Line 520 goes back and creates another 
alien ship to start the whole thing over. 


Program 4-2. Air Defense 


186 
110 


CALL CLEAR 
RANDOMIZE 

PAT=97 :: SHOT=.1 

CALL CHAR(96, "@@80CO6030187EFF") 


CALL CHAR(97, "0800181818187EFF") 

CALL CHAR(98, "@0G@O03060C187EFF") 

CALL CHAR(19@, "OU@GOO3C7TEFF7E3C") 

CALL CHAR(101, "187EFFFF2442810G6") 

CALL CHAR(192, "O@@OO7ETEFF7E7EVUG") 

CALL CHAR(193, "@908000600181800") 

CALL CHAR(104, "FFFFFFFFFFIFFFFFF"):: CALL COLOR 
(19,13,1) 

CALL CHAR(112, "@180001018004981") 

CALL CHAR(113, "1080810@82828114") 

FOR L=22 TO 24 

CALL HCHAR(L,1,104,32) 

NEXT I 

CALL SPRITE(#1,97,2,162,125) 

CALL SPRITE( #3, 1@O+INT(RND*3),5,26+INT(RND*125 
), 255,8,-(10+INT(RND*12)) ) 

CALL KEY(3,K,S) 

RATE=HIT/SHOT*19 

DISPLAY AT(1,8):USING "“####### ###": "RATING: ", 
RATE 

IF ¢=0 THEN 286 

IF K=83 THEN PAT=MAX(PAT-1,96) 

IF K=68 THEN PAT=MIN(PAT+1,98) 

IF kK=32 THEN 379 

CALL PATTERN (#1, PAT) 

GOTO 286 

CALL SPRITE(#2,103,7,156,125-((97-PAT) *6) ) 
SHOT=SHOT+1 
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390 R=-30 :: C=((PAT-97)*3@) 

402 CALL MOTION(#2,R,C) 

418 CALL POSITION(#2,X,Y):: IF X<12 OR Y<5 OR Y>?25 
@ THEN CALL DELSPRITE(#2):: GOTO 289 

428 CALL COINC( #2,#3,5,C0) 

438 IF CO=6 THEN 416 

449 CALL COLOR(#3,9) 

450 CALL DELSPRITE( #2) 

468 CALL PATTERN(#3,112) 

478 FOR L=1 TO 30 :: NEXT L 

486 CALL PATTERN(#3,113) 

496 FOR L=1 TO 3@ :: NEXT L 

588 CALL DELSPRITE(#3) 

518 HIT=HIT+1 

528 GOTO 279 


Determining Sprite Distances 

The CALL DISTANCE subprogram command is used to deter- 
mine the distance between two sprites or between one sprite 
and a screen location. It may have either of two formats: 


Format 1 
CALL DISTANCE(#sprite number,#sprite number,numeric 
variable) 


Format 2 
CALL DISTANCE(#sprite number,dot row,dot column,numeric 
variable) 


When Format 1 is used, the distance between the sprite 
identified by the first sprite number and the sprite identified 
by the second sprite number is found and placed in numeric 
variable. The location of both sprites is determined by their 
top left pixel. Both sprite numbers must be integers between 
1-28 and may be numeric literals, numeric variables, or 
numeric expressions. 

The value placed in numeric variable is determined by the 
following computation: The difference between the dot row of 
the first sprite number and the dot row of the second sprite 
number is found and squared. The difference between the dot- 
column of the first sprite number and dot column of the sec- 
ond sprite number is found and squared. The two squares are 
then added together and placed in numeric variable. If this 
sum is greater than 32,767, then 32,767 is placed in numeric 
variable. The actual distance between the two sprites is the 
square root of numeric variable. 
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Sprite #1 
Row 10, Column 10 


Sprite #2 
Row 20 
Column 18 


20 _ sprite #2 row 
—10 sprite #1 row 


18 sprite #2 column 
—10 sprite #1 column 


8 
10°= 100 
+8= 64 


164 distance 


Figure 4-3 shows two sprites. The first is located at dot 
row 10 and dot column 10. The second is located at dot row 
20 and dot column 18. The difference between the dot rows 
(10) is squared, resulting in 100. The difference between the 
dot columns (8) is squared, resulting in 64. The sum of the 
two squares (164) is placed in numeric variable. 

When Format 2 is used, the distance between the sprite 
identified by sprite number and the location identified by dot 
row and dot column is found and placed in numeric variable. 
The computation used to find the distance is the same as the 
one for two sprites. 
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The following short program displays the values com- 
puted for numeric variable. It places two sprites on the screen 
and lets you move one of them with the E, S, D, and X keys. 
The distance between the sprites is continuously displayed at 
the bottom of the screen. 


100 CALL CLEAR 

110 CALL CHAR(96,”FFFFFFFFFFFFFFFF”) 

120 CALL SPRITE(#1,96,2,70,125) 

130 CALL SPRITE(#2,96,16,90,125) 

140 CALL KEY(3,K,S) 

150 X=(K=83)—(K=68) :: Y=(K=88)—(K=69) 
160 CALL MOTION(#1,—Y,X) 

170 CALL DISTANCE (#1,#2,D) 

180 DISPLAY AT(23,10):”DISTANCE”;D 

190 GOTO 140 


CALL DISTANCE may be used in place of CALL COINC 
in your programs. While CALL COINC is used to test for 
coincidence, CALL DISTANCE has the additional benefit of 
providing the actual distance between sprites. This allows your 
program to determine how close as well as hit or miss. 

The next program, ‘Meteors,’ demonstrates how CALL 
DISTANCE can be used in a program in place of CALL 
COINC. The program displays a starship in the middle of the 
screen. The ship can be pointed up, down, left, or right by 
using the E, S, D, and X keys. The object of the game is to 
shoot the meteors by pressing the space bar. You can fire only 
one shot at a time. If your ship is struck by one of the mete- 
ors, the ship is destroyed. You have three ships to lose before 
the game is over. Stay alert! 


How Meteors Works 

Line(s) 

100 Clear the screen. 

110 Seed the random number generator. 


120-200 Define the patterns used in the program. ASCII code 
96 defines the ship pointing up; code 97 defines the 
ship pointing right; code 98 defines the ship pointing 
down; code 99 defines the ship pointing left. ASCII 
codes 104-106 are used to define three patterns for the 
meteors. ASCII code 112 defines the projectile fired by 
the ship. ASCII code 120 defines an “explosion” 
character. 
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210-230 Set the screen to dark blue, initialize the ship counter, 
and display the ship counter and score on the screen. 


240 Place the ship sprite (#1) at the center of the screen, 
pointing up (ASCII code 96). 
250 Initialize the row and column velocities for the projec- 


tile so that it corresponds to the direction in which the 
ship is pointing. These velocities will change as the 
direction of the ship changes. 

260-280 Call the routine that generates the three meteor sprites. 

290-340 Check for keyboard input. If the space bar was 
pressed, go to the routine to fire the projectile. If the E, 
S, D, or X key is pressed, change the ship’s pattern to 
the one corresponding to that direction and load the 
appropriate row and column velocities for the 
projectile. 

350-370 After checking the keys, check to see if one of the 
three meteors has collided with the ship. The specified 
distance of 73 allows for a collision if the ship and a 
meteor are within roughly six pixels of each other. This 
routine is within the main program loop since a meteor 
could collide with the ship at any time. 


380 After checking for keyboard input and collisions, go 
back and do it again. 
390-480 This routine takes command when the space bar is 


pressed, indicating that a projectile has been fired. Line 
390 fires the projectile based on the direction in which 
the ship is pointing (RV and CV). Line 400 begins a 
loop that lasts for the duration of the projectile’s flight. 
Within this loop, lines 410-440 check to see if the 
projectile hit one of the meteors. Again, a distance of 
73 was used. If the projectile did hit a meteor, program 
control is passed to line 610. After the loop in line 400 
is completed, the projectile sprite (#2) is deleted. 
Otherwise, the projectile would continue to wrap 
around the screen. If there are still meteors on the 
screen, line 460 branches back to the keyboard check 
routine. If all the meteors have been destroyed, line 
470 creates three more of them. One important thing 
to notice is the second CALL DISTANCE in line 420. 
This statement continues to check for ship and meteor 
collision even while the projectile is being tracked. 


490-530 Subroutine to create three meteors. The row and col- 
umn velocities are randomly generated. 
540-600 Subroutine for a ship and meteor collision. Lines 540- 


550 briefly change the ship’s pattern to the explosion 
character. The ship is then deleted in line 560. Line 
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610-650 


570 subtracts 1 from the ship count. If there are still 
ships left, line 590 goes back to line 230 to place a 
new ship on the screen. If there are no more ships, the 
program is ended in line 600. 

Subroutine for a meteor hit by a projectile. Line 610 
changes the affected meteor to the explosion character. 
Line 620 updates the meteor counter and score. Line 
630 deletes the meteor sprite. Lines 640-650 display 
the score and return to the calling routine. 


Program 4-3. Meteors 


189 
116 
128 
130 


CALL CLEAR 

RANDOMIZE 

CALL CHAR(96, "18183C3C3C7EFFFEF") 
CALL CHAR(97, "COE@FCFFFFFCEQ9CO") 
CALL CHAR(98, "FFFF7E3C3C3C1618") 
CALL CHAR(99, "©3873FFFFF3F9703") 
CALL CHAR(104,"387E3F7EFFFF7F1F") 
CALL CHAR(1@5, "3C7E7EFFFFFF7E3C") 
CALL CHAR(166, "7C7F3F3E1C3E7E3F") 
CALL CHAR(112, "@W9GOB18180G00BH " ) 
CALL CHAR(120, "0@1124201441811¢c3") 
CALL SCREEN(5) 

SHIPS=3 


) DISPLAY AT(24,6):"SHIPS:";SHIPS-1 :: DISPLAY A 


T(24,15):"SCORE:";SC 

CALL SPRITE(#1,96,15,90,125) 

RV=-209 :: CV=@ 

FOR SP=3 TO 5 

GOSUB 496 

NEXT SP 

CALL KEY(3,K,S) 

IF K=32 THEN 390 

IF K=83 THEN CALL PATTERN(#1,99):: RV=0 :: CV= 
-26 


IF K=68 THEN CALL PATTERN(#1,97):: RV=@ :: CV= 
26 

) IF K=69 THEN CALL PATTERN(#1,96):: RV=-20 :: C 
V=@ 
IF K=88 THEN CALL PATTERN(#1,98):: RV=298 :: CV 


=Q 

FOR L2=3 TO 5 

CALL DISTANCE(#1,#L2,DI1):: 
NEXT L2 

GOTO 298 

CALL SPRITE(#2,112,16,98,125,RV,CV) 
FOR L=1 TO 6 


IF DI<73 THEN 540 
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418 FOR SP=3 TO 5 

428 CALL PISTANCE(#2,#SP,DIST):: CALL DISTANCE(#1, 
#SP,DI):: IF DI<73 THEN 549 

430 IF DIST<73 THEN GOSUB 619 

449 NEXT SP :: NEXT L 

459 CALL DELSPRITE (#2) 

460 IF CT<3 THEN 299 

478 FOR SP=3 TO 5 :: GOSUB 490 :: NEXT SP 

488 GOTO 290 

498 CALL SPRITE(#SP,104+INT(RND*3),2,2408,90) 

5@@ SRV=3+INT(RND*5):: IF RND<.5 THEN SRV=-SRV 

518 SCV=3+INT(RND*5):: IF RND<.5 THEN SCV=-SCV 

526 CALL MOTION(#SP,SRV,SCV) 

530 CT=0 :: RETURN 

549 CALL PATTERN(#1,12G@) 

558 FOR L2=l TO 15 :: NEXT L2 

560 CALL DELSPRITE(ALL) 

578 SHIPS=SHIPS-1 

580 IF SHIPS=0 THEN 600 

590 FOR L=1 TO 368 :: NEXT L :: GOTC Z30 

688 sToP 

618 CALL PATTERN(#SP,120) 

626 CT=CT+l :: SC=SC+tl 

630 CALL DELSPRITE(#2,#SP) 

649 DISPLAY AT(24,21):sc 

656 L=99 :: SP=9 :: RETURN 


Factors Affecting POSITION, COINC, and DISTANCE 


There are two factors you should keep in mind when using 
CALL POSITION, CALL COINC, and CALL DISTANCE in 
your programs. Both have to do with speed. 

The first involves the row and column velocities of the 
sprites used in the program. If these velocities are high, the 
values returned from the subprograms may not be right. The 
reason is simple: The three subprograms get the values at the 
instant they are executed in the program, but when sprites are 
moving very fast, the subprograms have a much smaller mar- 
gin of error, or window, to work with. The results, of course, 
are missed coincidences and incorrect distances. 

The second problem is similar. It has to do with the rel- 
atively slow speed of BASIC. As an example, consider a pro- 
gram that contains eight sprites. You want the program to 
check for coincidence between sprite #1 and the other seven 
sprites. If your program contains seven CALL COINC sub- 
program statements in a row, the chances are very good that 
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the final two or three will miss the coincidence. By the time 
the program gets to those lines, the sprites have moved out of 
range. 

There are ways to overcome, or at least reduce, these 
problems. Use efficient programming techniques (multiple 
statement lines, short variable names, etc.). Check your pro- 
gram for needless GOTOs or dead code. Where possible, com- 
bine repetitive code into a single subroutine. Make sure your 
program is well-designed. Do you need to check every sprite 
for coincidence in the same place? Can you use the ALL 
keyword instead of checking each sprite? The list goes on. 


Writing a Graphics Program 
By this point, you should be familiar with defining characters, 
displaying characters on the screen, assigning character colors, 
defining sprites, controlling sprite motion, and determining 
sprite status. But understanding these techniques is only the 
first step toward working up a graphics program of your own. 
This section will show you how to incorporate such tech- 
niques into a game program of your own. It will explain, step 
by step, how a graphics program evolves from a rough idea in 
the programmer's mind into the finished product. 


The Scenario 

The program will be a one-player maze game called ‘Mouse 
Maze.” The object of the game will be to get the mouse from 
the top of the maze to the mouse hole at the bottom. It might 
be easy—but unfortunately for the mouse, the maze will also 
be occupied by two hungry cats. 

The cats will have the ability to chase the mouse. They'll 
have enough intelligence to know where the mouse is, but not 
enough to backtrack when they reach barriers in the maze. 
Neither the cats nor the mouse can jump the maze barriers. 
Both the cats and the mouse will move at the same speed. The 
mouse’s only chance for survival, therefore, is to outsmart the 
cats. The player will control the mouse by using the E, S, D, 
and X keys. 

The complete program listing is presented at the end of 
this chapter. You should refer to it when particular sections of 
code are being explained. 
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Defining the Graphics 

Once the scenario is set, the next step is to identify and define 
the required graphics characters. From the game description 
you can see that two types of graphics are necessary for this 
game. 

Obviously, there must be a maze. Since the maze is, in 
effect, the playing board, it should be designed first. The best 
way to design a maze—or, for that matter, any other fixed 
screen pattern—is to draw it on graph paper marked for 32 
columns by 24 lines. The maze used in the program is shown 
in Figure 4-4. 


Figure 4-4. Mouse Maze Screen Layout 


After plotting the maze, you must decide on a character to 
make up the maze walls. You could use a standard ASCII pat- 
tern such as the X, but that would be a waste of the flexibility 
that your TI provides. 

It would be more effective visually to use a custom 
character, and that is what has been done here. Line 120 
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defines ASCII code 40 as a square with a dark red border and 
a gray interior. When this character is used to make the maze 
barrier, it gives the impression of bricks or blocks. 

There still remains the matter of displaying your maze on 
the screen. This is accomplished easily enough by looking at 
the maze design, finding the starting location and length of 
the barrier sections, and using CALL HCHAR and CALL 
VCHAR to place them on the screen. Lines 370-590 do just 
that. 

But there’s more to this maze game than its maze. The 
sprites must also be defined. This particular scenario involves 
two basic sprite shapes, one for the cats and one for the 
mouse, and they should be displayed with reasonably high 
resolution in order to provide realism. Double-sized 
unmagnified sprites (line 240) would be the best choice, since 
they provide a total of 256 pixels per animal. 

Note that the size of the sprites determines the minimum 
width of the maze corridors. In this case, with double-sized 
unmagnified sprites, the corridors must be at least two charac- 
ters wide in every dimension. Remember, double-sized sprites 
measure two characters by two characters. 

Though you only have two types of creatures loose in 
your maze, remember that each one can move in any of four 
different directions. Consequently, four distinct sprites will be 
required for each. Figure 4-5 shows the four patterns for the 
mouse, which are defined in the program as four-character 
ASCII codes 96, 100, 104, and 108, in lines 130-160. Figure 4- 
6 depicts the patterns for the cats, which are defined as four- 
character ASCII codes 112, 116, 120, and 124, in lines 170- 
200. 

The mouse is placed on the screen, in line 330, at row 17, 
column 161. The cats, on the other hand, are initially located 
at two of six possible locations (lines 340-350), which makes 
the game less repetitious. The six possible locations are con- 
tained in the DATA statements in lines 1200 and 1210. These 
are READ in lines 280-300. The two locations actually used 
are randomly selected in lines 250-260. Line 270 makes sure 
that the two locations are different. 

Finally, the game should include some sort of animation 
depicting the mouse being caught by a cat. This is accom- 
plished by alternating the three patterns shown in Figure 4-7. 
They are defined in lines 210-230 as four-character ASCII 
codes 128, 132, and 136. 
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Figure 4-5. The Mouse 
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Controlling the Action 

Since this game involves ongoing action, a main control loop 
must be established. This loop must determine if the mouse 
has been caught. It must also move the cats toward the mouse 
without letting them jump the barrier, and it has to see if the 
E, S, D, or X key is pressed and then move the mouse accord- 
ingly. Finally, it has to determine if the mouse has safely 
reached the mouse hole. 

The control loop begins in line 600. The first thing it does 
is get the position of the mouse and the two cats. If the mouse 
is past row 172, it has reached safety. The program then 
branches to line 1140, which ends the game. Otherwise, the 
program checks COINC in lines 610 and 620 to see if the 
mouse has been caught. If the mouse is within eight pixels of 
either cat, the mouse is caught. In that case, the program 
branches to 1060 and initiates a loop that alternates ASCII 
codes 128, 132, and 136. The effect is a cartoon-style cat and 
mouse fight. 

If coincidence is not reported, the program calls a routine 
to move the cats (lines 630-680). The values from the earlier 
CALL POSITION are used to determine the row and column 
velocities necessary to move the cat toward the mouse (line 
710). If the mouse is further away vertically than horizontally 
(line 720), the cat attempts to move vertically (lines 790-840). 
Otherwise, the cat attempts to move horizontally (lines 730- 
780). 

If the cat attempts to move vertically, but is blocked by 
the barrier (line 820), it then attempts to move horizontally. If 
it is still blocked, no movement occurs. The same applies 
when the first attempt is horizontal (line 760). 

Since the sprite measures two characters by two charac- 
ters, a cat can move vertically only when both positions in the 
vertical direction are blank. To check for this condition, the 
program converts the sprite row (adjusted for the move) and 
column from the CALL POSITION into character row and col- 
umn (lines 790-800). It then issues two CALL GCHARs to 
determine if the new locations are blank. If they are, the move 
is made (line 670), and the cat pattern for that direction is 
used (line 830). If the new locations aren’t blank, and no hori- 
zontal movement attempt has been made (IF SW=0 in line 
820), the program branches to the horizontal movement rou- 
tine (GOTO 730 in line 820). Horizontal movement is con- 
trolled in similar fashion in lines 750 and 760. 
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After the cats have been moved, the program checks for 
keyboard input (line 690). If there is keyboard input, lines 
850-880 determine which key and invoke the appropriate rou- 
tine. For example, if the S key was pressed (moving the mouse 
to the left), the program branches to line 900. The new loca- 
tion for the mouse is determined (line 900), and a CALL 
GCHAR is issued (line 910) to see what's there. If the new 
location is blank, the mouse is moved and its pattern changed 
to coincide with that direction (line 920). If the new location 
isn’t blank, no movement is made. In either case, the program 
RETURNs (line 930) and starts the process all over. 


Program 4-4. Mouse Maze 


198 CALL CLEAR 

116 RANDOMIZE 

120 CALL CHAR(4@, "FF818181818181FF"):: CALL CCLOR( 
2,715) 

130 CALL CHAR(96, "GOHOGBUUGD4IGFV3IV2NGGUVOGBOGOBBGOOY 
PIOVSGSAGDSFOED2OPGOSAGOSOHGIGOGGOG" ) 

140 CALL CHAR(10G, "O@GOGVD2G1GGFU7G4HUOLBDGBULGOHGOO 
PAIGCGVDPSOOG 2OFOCHADGLGGGIGOGGHGWOGHOwW " ) 

159 CALL CHAR(104, "©G09G10G8G40 70606068 70CO490009000 
SIGBPPOOSOBSHUSOOC GUGUOHSGPSDOHYDOGGD" ) 

166 CALL CHAR(168, "@8O9GGG0G04GCO796060607049819008 
GODPPSPPSOVPVGHGOOGODGUGHGODGHUTGOOHOOGH " ) 

178 CALL CHAR(112, "O@GOGOGOO2060EVEO3F3F3F1FU808162 
POGOOSGHOGPOG1O2G4FS8FSFE8FO1908081G" ) 

189 CALL CHAR(116, "@G9900046008940201F1F1FO0F9810109 
89Q0OGGQO0G4060797FCFCFCF810180804" ) 

198 CALL CHAR(126, "©4020 10O99HGGBDOIVGGIUGOGGOBOFD7V 
30000Q00F6FIFOFOFOFOFOFOFCF2E19G000") 

2608 CALL CHAR(124, "G387GFBGHVGDGDOHPOBBOHOGOVLHGG1 G20 
4Q000F1F2FCFOFOFOFOFOFOFIEGOBUGON " ) 

218 CALL CHAR(128, "@8G@6H060830189CH6030193069C18009 
OLBVSOGOGOEOGC1 B3GEGCH8GCU6G 30180000" ) 

220 CALL CHAR(132, "@G@G9GVU6G8001129044482044919GH0000 
BBOOOG3C8OG4B4948.4946G64880G380008" ) 

238 CALL CHAR(136, "©4644046201906803UF1121418262646 
OGDGHOS1H204040UCHOFDE1G8940804v101") 

249 CALL MAGNIFY (3) 

258 LC1=1+INT(RND*6) 

26@ LC2=1+INT(RND*6) 

276 IF LC1l=LC2 THEN 269 

280 FOR L=1 TO 6 

299 READ CRL(L),CCL(L),CCH(L) 

300 NEXT L 
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316 
329 
330 
346 
356 
360 
376 
389 


398 
400 
416 


4208 
430 
440 
458 
466 


476 


489 
490 
56@ 
516 
520 
536 
548 
559 
566 
578 
586 
598 
600 


610 
620 


630 
640 
650 
668 
67 
680 
698 
7080 
716 


X(1)=CRL(LC1l):: X(2)=CRL(LC2) 
Y¥(1)=ccL(LCl):: Y¥(2)=cCL(LC2) 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


SPRITE(#1,199,16,17,161) 

SPRITE (#2,CCH(LC1),2,CRL(LCl),CCL(LC1) ) 
SPRITE (#3,CCH(LC2),2,CRL(LC2),CCL(LC2) ) 
SCREEN (6) 

HCHAR(2,2,48, 39) 

HCHAR(5,5,4@,6):: CALL HCHAR(5,13,40,10): 


: CALL HCHAR(5,25,40,4) 


CALL 
CALL 
CALL 
) 


CALL 
CALL 
CALL 
CALL 
aaa 


CALL 
) 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


HCHAR(8,5,4@,8):: CALL HCHAR(8,18,40,11) 
HCHAR(11,3,49,8) 
HCHAR(13,13,48,4):: CALL HCHAR(13,17,46,9 


HCHAR(16,5,408,9) 
HCHAR(17,22,48,9) 
HCHAR(19,8,48,3):: CALL HCHAR(19,13,48,7) 
HCHAR(2@,8,46,3) 
HCHAR(21,8,48,3):: CALL HCHAR(21,19,48,1@ 


HCHAR(24,2,48,9):: CALL HCHAR(24,13,48,19 


VCHAR(2,2,48,23) 
VCHAR(19,5,48,5) 
VCHAR(14,7,48,2) 
VCHAR(11,19,48,3) 
VCHAR(5,13,48,6):: CALL VCHAR(16,13,40,6) 
VCHAR(13,16,48,4) 
VCHAR(8,18,498,3) 
VCHAR(19,19,48,3) 
VCHAR(8, 22,46,3) 
VCHAR(13,25,48,2) 
VCHAR(8, 28, 48,7) 
VCHAR(2,31,48, 23) 
POSITION(#1,R1,C1,#2,R2(1),C2(1),#3,R2(2) 


,C2(2)):: IF R1>172 THEN 1146 


CALL 


COINC(#1,#2,8,CO):: IF CO<>@ THEN CO=2 :: 


GOTO 1969 


CALL 


COINC(#1,#3,8,CO):: IF CO<>@ THEN CO=3 :: 


GOTO 10868 
FOR L=1 TO 2 


GOSUB 719 


NEXT 


L 


FOR L=2 TO 3 


CALL 
NEXT 
CALL 
GOTO 
MS=2 


LOCATE (#L,R2(L-1),C2(L-1)) 
i 
KEY(3,K,S):: IF S<>@ THEN GOSUB 850 


606 
2: SW=8 :: RV=R1-R2(L):: CV=C1-C2(L) 


726 IF APBS(RV)>ABS(CV)THEN 799 
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736 


746 
756 


766 


776 


789 
798 


808 
818 


826 


830 


846 
856 
866 
876 
886 
890 
980 
919 
929 


939 
949 
950 
966 


970 


989 
996 
1690 


1619 
1920 
1630 
1640 


1858 
1866 


IF CV<@ THEN COL=MIN(INT((C2(L)-8)/8)+1,32)ELS 
E COL=MIN(INT( (C2(L)+16)/8)+1, 32) 
ROW=INT(R2(L)/8)+1 

ae GCHAR(ROW,COL,CH):: CALL GCHAR(ROW+1,COL, 

CH2 

IF CH<>32 OR CH2<>32 THEN IF SW=@6 THEN SW=1 :: 
GoTO 7998 ELSE RETURN 

IF CV<@ THEN C2(L)=C2(L) 
1,112)ELSE C2(L)=C2(L)+8 
116) 

RETURN 

IF RV<@ THEN ROW=MIN(INT( (R2(L)-8)/8)+1,24)ELS 
E ROW=MIN(INT( (R2(L)+16)/8)+1,24) 
COL=INT(C2(L) /8)+1 

aay GCHAR(ROW, COL,CH):: CALL GCHAR(ROW,COL+1, 
CH 

IF CH<>32 OR CH2<>32 THEN IF SW=0 THEN SW=1l :: 
GOTO 738 ELSE RETURN 


-~8 :: CALL PATTERN ( #L+ 
:: CALL PATTERN(#L+1, 


IF RV<@ THEN R2(L)=R2(L)-8 :: CALL PATTERN ( #L+ 
1,124)ELSE R2(L)=R2(L)+8 :: CALL PATTERN(#L+1, 
1206) 

RETURN 


IF K=83 THEN 909 

IF K=68 THEN 940 

IF K=69 THEN 980 

IF K=88 THEN 192 

RETURN 

ROW=INT(R1/8)+1 :: COL=INT((c1-8)/8)+1 

CALL GCHAR(ROW,COL,CH) 

IF CH=32 THEN Cl=C1-8 :: CALL PATTERN(#1,96):: 
CALL LOCATE(#1,R1,C1) 


RETURN 
ROW=INT(R1/8)+1 :: COL=INT((C1+16)/8)+1 
CALL GCHAR(ROW,COL,CH) 


IF CH=32 THEN Cl=C1+8 :: CALL PATTERN(#1,190): 
: CALL LOCATE(#1,R1,Cl) 
RETURN 


COL=INT(C1/8)+1 :: ROW=INT((R1-8)/8)+1 
CALL GCHAR(ROW,COL,CH) 

IF CH=32 THEN R1=R1-8 :: CALL PATTERN(#1,168) 
:: CALL LOCATE(#1,R1,C1l) 

RETURN 

COL=INT(C1/8)+1 :: ROW=INT((R1+16)/8)+1 

CALL GCHAR(ROW,COL,CH) 

IF CH=32 THEN R1=R1+8 :: CALL PATTERN(#1,104) 
:: CALL LOCATE(#1,R1,Cl) 

RETURN 

FOR LPl=1 TO 5 :: FOR LP2=1 TO 9 STEP 4 
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1878 CALL PATTERN(#1,127+LP2):: CALL PATTERN(#CO,1 
37-LP2):: CALL COLOR(#1,9+INT(RND*4),#CO, 7+IN 
T(RND*6) ) 

1686 FOR LP3=l1 TO 15 :: NEXT LP3 

1990 NEXT LP2 :: NEXT LPl 

1180 CALL DELSPRITE(#1):: CALL COLOR(#CO,2):: CALL 

PATTERN (#CO,116) 

111@ DISPLAY AT(1,5):"PLAY AGAIN? Y OR N” 

1126 CALL KEY(3,K,S):: IF S=@ THEN 11298 

1130 IF K=89 THEN RESTORE :: GOTO 1998 ELSE CALL DE 
LSPRITE(ALL):: CALL CLEAR :: STOP 

1148 CALL DELSPRITE(ALL):: CALL CLEAR 

1158 FOR LP1l=1 TO 19 

1166 DISPLAY AT(12,1@): "HOORAY!" :: FOR LP2=l TO 4 
@ :: NEXT LP2 

1170 DISPLAY AT(12,1):" " :: FOR LP2=1 TO 48 :: NE 
XT LP2 

1188 NEXT LPl 

1198 STOP 

1286 DATA 169,17,124,169,113,116,89, 25,116 

1218 DATA 81,185,112,41,113,112,1905,81,124 
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Sound 


s you've worked with your TI through the last few 
chapters, you've discovered that it has some remark- 
able graphics capabilities. But graphics is only part of 
the story. Your TI computer has an additional 
capability that can make things even more exciting: sound. 


What Is Sound? 

Sound is the result of changes in air pressure, which stimulate 
the ear drum and auditory nerves to produce the sensation of 
hearing. Such pressure changes radiate from a source—for 
instance, a vibrating guitar string—and travel through the air 
much like waves travel across a pond when you toss in a 
stone. 

Sound can be characterized by volume, frequency, and 
vibrational pattern. Volume is simply the magnitude of the 
pressure waves, while frequency is nothing more than the 
number of pressure changes per second. Frequency is meas- 
ured in hertz (Hz), or cycles per second, and most people can 
hear sounds ranging from about 20 to more than 20,000 Hz. 
The vibrational pattern embraces both the waveform (literally, 
the shape of the pressure waves) and the regularity of the pat- 
tern and determines a sound’s tone color. For example, regu- 
larly varying waves will produce sounds having a definite 
pitch, while randomly varying waves will be heard as some 
form of noise. 


Making Sound on the TI 

Using the CALL SOUND subprogram, your TI can produce 

both musical tones and noise. CALL SOUND has the follow- 

ing format: 

CALL SOUND(duration,frequency 1,volume 1,...,frequency 
4,volume 4) 


Duration is an integer in the range from 1 to 4250 or —1 
to —4250 and can be a numeric literal, numeric variable, or 
numeric expression. It indicates the length of time in milli- 
seconds (1000 milliseconds equals one second) that a tone or 
noise will last. Positive durations mean that a new CALL 
SOUND subprogram will not be executed until the previous 
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CALL SOUND has finished. If you use the negative sign, it 
tells the computer to execute a CALL SOUND immediately, 
regardless of what else is going on, and can be particularly 
useful in games or tutorials where sounds must change 
quickly. You can specify only one duration parameter per 
CALL SOUND subprogram. 

The frequency parameter determines whether a sound is a 
musical tone or noise. For musical tones, it is an integer from 
110 to 44733 that corresponds to the desired frequency. For 
noise, it is an integer from —1 to —8, depending on the type 
of noise that you want. Several different noise types are 
described in Table 5-1, along with their corresponding fre- 
quency values. In either case, the value can be a numeric lit- 
eral, numeric variable, or numeric expression. 


Table 5-1. Noises 


Frequency Description 


=1 Periodic Noise Type 1 

2 Periodic Noise Type 2 

=3 Periodic Noise Type 3 

—4 Periodic Noise that varies with the frequency of the 
third tone specified 

= White Noise Type 1 

—6 White Noise Type 2 

7 White Noise Type 3 

—8 White Noise that varies with the frequency of the third 


tone specified 


Volume is an integer ranging from 0 to 30 and can also be 
a numeric literal, numeric variable, or numeric expression. 
Contrary to what you might expect, 0 represents the highest 
volume. Higher numbers produce lower volumes, with 30 
being used for the softest possible sounds. 

A maximum of three frequencies and one noise form, 
each with its own volume parameter, may be specified in the 
same CALL SOUND statement. All of the sounds will then be 
produced simultaneously. 

The best way to learn your TI’s sound capabilities is to 
experiment. You can RUN the following examples to get 
started, but don’t hesitate to try different values and create 
some sounds of your own. 
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Frequency vs. Pitch 

100 FOR F=110 TO 1760 STEP 50 
110 CALL SOUND (500,F,0) 

120 NEXT F 


Duration 

100 FOR D=100 to 4250 STEP 1000 
110 CALL SOUND (D, 262,0) 

120 FOR X=1 TO 1500 :: NEXT X 
130 NEXT D 


Volume 

100 FOR V=0 TO 30 

110 CALL SOUND (500,262,V) 
120 FOR X=1 TO 500 :: NEXT X 
130 NEXT V 


Noise 

100 FOR N=1 TO —8 STEP —1 
110 CALL SOUND (3000,N,0) 
120 FOR X=1 TO 1500 :: NEXT X 
130 NEXT N 


Harmony 
100 CALL SOUND (3000,262,0,330,0,392,0) 


Discord 
100 CALL SOUND(3000,110,0,672,0,151,0) 


Turning Sound into Music 

As you've probably discovered, your TI can produce some 
interesting sounds. By themselves, those sounds can certainly 
provide an evening’s entertainment or add new dimensions to 
your games. Your computer can also be a musician, and this 
section will show you how to tap its talents. 

The following section is a short introduction to musical 
notation. If you already know how to read music, you might 
want to skip ahead. If not, this short introduction will help 
you phrase your musical thoughts in terms the TI understands. 


Basic Notation 

In written music, different tones are represented by notes 
placed on a staff composed of five lines and four spaces. The 
two most common staves are the treble staff, used for middle 
to high tones, and the bass staff, used for middle to low tones. 
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Music is generally written on the grand staff, a combination of 
the bass and treble staves. The treble portion generally con- 
tains the melody, while the bass portion contains the harmony 
or accompaniment. 

A note, by itself, simply indicates the duration of a tone. 
It is the position of that note on the staff that specifies a given 
tone, and each line or space is identified by one of the first 
seven letters of the alphabet. Figure 5-1 shows how the letter 
names and frequencies relate to the lines and spaces. 

The interval from any note to the next one of the same 
letter name is called an octave. For example, the interval from 
the A with a frequency of ll0 to the A with a frequency of 220 
represents one octave. Each octave represents a doubling of 
frequency, and the following program demonstrates that 
relationship by playing each note and its octaves. 

Program 5-2 will help you learn to identify notes by their 
letter names. It draws a grand staff on the screen and places 
labeled notes on the staff. As each note appears, CALL 
SOUND is used to generate the corresponding tone. After all 
the notes have been played, a short quiz reviews your note- 
naming skills. 

Using symbols called chromatic signs, notes called sharps 
(#) or flats cb) can also be identified. A sharp will be slightly 
higher in frequency than the un-sharped note, while a flat will 
be slightly lower in frequency. The distance between two 
adjacent tones—for example, between C and C#— is called a 
half step; the distance between two tones with a single tone 
between them—C to D, for instance—is called a whole step. 
Chromatic signs which appear at the beginning of a piece are 
called the key signature and affect every note in the piece, 
while those appearing within the piece affect only a single 
measure. 

The natural sign (0) may also be encountered. You can 
think of it as a ‘neutralizer’ which does away with a sharp or 
flat. When placed in front of a note, it restores that note to its 
unmodified pitch. For example, even though the key signature 
might tell you to sharp every F, the natural sign can be used 
to selectively remove the sharp whenever desired. 

Your TI can generate more than 44,000 tones, but only a 
few of them correspond to tones used in Western music. Table 
5-2 lists those that do, along with the corresponding letter 
names used to represent them. 
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Table 5-2. Musical Tones Frequency 


Frequency Note 


110 A 

117 A#, Bb 

123 B 

131 C (low C) 
139 C#, Db 

147 D 

156 D#, Eb 

165 E 

175 F 

185 F#, Gb 

196 G 

208 G#, Ab 

220 A (below middle C) 
233 A#, Bb 

247 B 

262 C (middle C) 
277 C#, Db 

294 D 

311 D#, Eb 

330 E 

349 F 

370 F#, Gb 

392 G 

415 G#, Ab 

440 A (above middle C) 


Frequency Note 


440 
466 
494 
523 
554 
587 
622 
659 
698 
740 
784 
831 
880 
932 
988 
1047 
1109 
1175 
1245 
1319 
1397 
1480 
1568 
1661 
1760 


A (above middle C) 
A#, Bb 

B 

C (high C) 
C#, Db 

D 

D#, Eb 

E 

F 

F#, Gb 

G 

G#, Ab 

A (above high C) 
A#, Bb 

B 

Cc 

C#, Db 

D 

D#, Eb 

E 

F 

F#, Gb 

G 

G#, Ab 

A 


Besides indicating pitch, notes also indicate duration. Dif- 
ferent notes represent different durations; other symbols, 
called rests, indicate specific pauses. Figure 5-2 shows the 
symbols used for various notes and rests, while Figure 5-3 
shows how they relate to each other. 


Figure 5-2. Notes and Rests 


Whole note 


Half note 


Quarter note 


16th note 


32nd note 
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8th note 5) 8th rest 


Whole rest 


Half rest 


Quarter rest 


16th rest 


32nd rest 


$3 FA 


a 


7 


Sound 


64th note i 64th rest J 


Note: Two or more 8th, !6th, 32nd, or 64th notes are usually con- 
nected by a beam. For example, 


eee ep 


Two 8ths Two léths An 8th and a 16th 


Note that the stems of notes may point down instead of up. The 
direction of the stem depends on the position of the note on the 
staff. 


Figure 5-3. Note Equivalents 


One whole note © equals 2 1 or 4 J or 8 a) or 16 A or -) or an 
One dotted whole note Q. equals 3 i or =| or 12 p) or ”) or 48 i. 96 i 
One half note 1 equals 2 J ,or4 ) or 8 5 or co or 32 i 
One dotted half note 4 equals 3 . , or 6 ) or 12 J) or 24 5) or 48 s 
One quarter note J equals 2 _ or4 S or a or 16 i 
One dotted quarter note 1. equals 3 ). or 6 i or 12 i, 24 i 
One eighth note ) equals 2 my or4 Sj or 8 i 
One dotted eighth note d equals 3 A or 6 K or 12 i 
One 16th note equals 2 SK or 4 i 
One dotted l6th note equals 3 i ,or6 j 


One 32nd note i equals 2 S 
Nas i 


One dotted 32nd note 
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Note that different notes (and rests) represent relative 
rather than absolute durations. In other words, a whole note 
has no set length. But regardless of how long that whole note 
actually lasts, a half note will last half as long, a quarter note 
will last one-quarter as long, and so on. 

A note can also be followed by a dot. The dot tells you to 
prolong that note by half its time value. For example, if a half 
note was followed by a dot, it would last three-fourths as long 
as a whole note (1/2 + 1/4 = 3/4). 

Regardless of duration, notes are arranged in groups 
called measures. Measures divide music into segments with an 
equal number of beats. The lines used to delineate measures 
are called bar lines, and a double bar line is used at the end of 
a piece. Figure 5-4 shows a grand staff divided into measures. 


Figure 5-4. Measures and Time Signatures 


Double Bar Line 


™_, 
= 
| 
i = = 


Measure Measure Measure Measure 


rary. i ee ee ee 
| Fa ee A ee re ie ev ot 
fl Any a ee ee ee 
ere a De Sy ee ET) 
Bar Line Bar Line Bar Line 
Time Signature 


4 - 4 beats to the measure 
4 - Quarter note gets 1 beat 
(Also indicated by a C) 


Other Time Signatures 


3 - 3 beats to the measure 6 - 6 beats to the measure 
4 - Quarter note gets 1 beat 8 - Eighth note gets 1 beat 
2 - 2 beats to the measure 2 - 2 beats to the measure 
2 - Half note gets 1 beat 4 - Quarter note gets 1 beat 
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Information about the rhythm of a piece is given by the 
time signature, a numerical fraction found at the beginning of 
the grand staff. The top number tells you how many beats are 
in each measure, while the bottom number indicates the type 
of note that gets one beat. The time signature shown in Figure 
5-4, for example, tells you that each measure contains four 
beats and that the quarter note should be counted as one beat. 
A half note would get two beats, and a whole note would get 
four beats. Similarly, an eighth note would get half a beat, a 
dotted half note would get three beats, and so on. 


Program 5-1. Octaves 


108 CALL CLEAR :: CALL SCREEN(2) 
119 CALL MAGNIFY (2) 

128 FOR L=l1 TO 7 

138 READ N(L) 

148 NEXT L 

158 FOR L=1 TO 7 

169 F=N(L) 

178 CALL SPRITE(#1,64+L,14,98,125) 
188 FOR X=l1 TO 5 

198 CALL SOUND(1508,F,@) 

206 F=F*2 

219 NEXT X 

220 FOR T=1 TO 1508 

230 NEXT T 

249 NEXT L 

258 DATA 118,123,131,147,165,175,196 


Program 5-2. Note Tutor 


188 CALL CLEAR 

118 RANDOMIZE 

120 DIM NOTES (22), ROW(22), FREQ(22),Sw(22) 

130 CALL CHAR(91, "OGSOBOFFOBGGOGGO " ) 

148 CALL CHAR(92, "@101618191919181") 

158 CALL CHAR(93, "8U8HBH8H80898G8O " ) 

160 CALL CHAR(96, "1866818181661806 " ) 

178 CALL CHAR(100, "910191FF91016101010191FF0385991 
9313161 FF47C9C9CDC5C7C3FF41616131") 

188 CALL CHAR(194, "190D07FFG19161901") 

198 CALL CHAR(165, "COADIOFFOG404940890AGSCOFF8G80898 
O868080FFFUB88C86828181FF83838 68E" ) 

289 CALL CHAR(199, "98BGEGFF80808088 " ) 

218 CALL CHAR(119, "@QOO9OFFOF1830604907038F FOBBO0GG 
OIOOSGOF FODSVIGHOGSGSOSHSFFOGOLS 700") 
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226 
230 


246 
256 
269 
279 
286 
296 


386 


319 
320 


336 
348 
358 
368 
376 
386 
396 
400 
418 
420 
438 


449 
456 
460 
479 
489 
496 
546 
516 


528 
5308 
548 
558 
566 
578 
580 
596 
606 
616 
620 
630 


124 


CALL CHAR(114, "GGOGBGOFFODZIOGBOE " ) 

CALL CHAR(115, "@QGGOOFFFO1SG8G8GCEDICFFUCEDICD 
COCOCOCFFOUCHCHCH8181030FF7BEGS 

GOO") 

CALL CHAR(119, "GGOBGOFFODBLUBGO" ) 

FOR L=1 TO 22 

READ NOTES (L), ROW(L), FREQ (L) 

NEXT L 

CALL CLEAR 

DISPLAY AT(4,1):"l - NOTE DRILL" :: DISPLAY AT 
(6,1):"2 - NOTE TEST" 


DISPLAY AT(19,1):"“SELECT ONE ---> " :: ACCEPT 
AT(19,17)VALIDATE("12")SIZE(-1)BEEP:OPT 

CALL CLEAR 

IF OPT=l1 THEN DISPLAY AT(1,18):"D R I L L" ELS 


E DISPLAY AT(1,19):"T ES T" 
FOR L=5 TO 9 

CALL HCHAR(L,2,91,38) 
NEXT L 

FOR L=14 To 18 

CALL HCHAR(L,2,91,36) 
NEXT L 

FOR L=5 TO 9 

CALL HCHAR(L,2,95+L,1) 
CALL HCHAR(L,3,1908+L,1) 
NEXT L 

FOR L=14 To 18 


CALL HCHAR(L,2,96+L,1) 

CALL HCHAR(L,3,1@1+L,1) 

NEXT L 

CALL VCHAR(5,1,92,14):: CALL VCHAR(5,32,93,14) 
DISPLAY AT(21,4):"LOW{3 SPACES}MIDDLE HIGH" 
IF OPT=2 THEN 620 

C=33 :: FOR L=l TO 22 

IF L=1@ OR L=22 THEN CALL HCHAR(INT(ROW(L)/8)+ 
1,3+L,91,3) 

CALL SPRITE(#L,96,2,ROW(L),C) 

C=C+8 :: DISPLAY AT(19,2+L):NOTES (L) 

CALL SOUND (8@@,FREQ(L),@) 

FOR D=1l TO 1208 :: NEXT D 

NEXT L 

DISPLAY AT(23,5):"** DRILL COMPLETE **" 

FOR D=1 TO 2500 :: NEXT D 

CALL DELSPRITE(ALL) 

GOTO 280 

GOTO 619 

FOR L=1 TO 22 :: SW(L)=6 :: NEXT L 

CC=33 :: RIGHT=0 :: WRONG=0 
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646 
650 
660 
678 
689 
696 


706 
716 
728 


736 
748 


756 


760 
770 
786 


796 
800 


810 
820 
830 
846 
850 
860 
876 
88G 
890 
988 
918 
926 
930 
949 
959 
960 
976 
988 
999 
1909 
1916 
1929 
1930 
1949 
1956 


DISPLAY AT(21,1):" " 
FOR L=1 TO 18 
N=1+INT(RND*22):: IF SW(N)=l1 THEN 660 
SW(N)=1 
CALL SPRITE(#L,96,2,ROW(N),CC) 
IF N=1@ OR N=22 THEN CALL HCHAR(INT(ROW(N)/8)+ 
1,3+L,91,3) 
CALL SOUND(809,FREQ(N),@) 
Cc=cct+8 
DISPLAY AT(23,1):"WHAT IS THIS NOTE? _" :: ACC 
EPT AT(23,20)VALIDATE( "ABCDEFG" )SIZE(-1):ANS$ 
CALL HCHAR(23,1,32,32) 
IF ANSS=NOTES(N)THEN DISPLAY AT(23,10):"R I G 
H T !" ELSE DISPLAY AT(23,10):"W RONG !" 
IF ANS$<>NOTES(N)THEN DISPLAY AT(24,1): "THE CO 
RRECT ANSWER IS “;NOTE$(N):: WRONG=\JRONG+1 ELS 
E RIGHT=RIGHT+1 
DISPLAY AT(19,2+L):NOTES(N) 
FOR D=1 TO 1580 :: NEXT D 
CALL HCHAR(23,1,32,32):: CALL HCHAR(24,1,32,32 
) 
NEXT L 
DISPLAY AT(23,1):"RIGHT: "“;RIGHT;"{3 SPACES}WR 
ONG : “; WRONG 
FOR D=1 TO 2506 :: NEXT D 
CALL DELSPRITE(ALL) 
GOTO 286 
DATA "A",133,118 
DATA “B",129,123 
DATA "C",125,131 
DATA "D",121,147 
DATA "E",117,165 
DATA "F",113,175 
DATA "G",189,196 
DATA "A",195,220 
DATA "B",101,247 
DATA "C",73,262 
DATA "D",69, 294 
DATA “E",65,330 
DATA “F",61,349 
DATA "G",57,392 
DATA "A",53,448 
DATA "B",49,494 
DATA "C",45,523 
DATA "D",41,587 
DATA "E",37,659 
DATA "F",33,698 
DATA "G",29, 784 
DATA "A",25,880 
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Now that you’ve completed the crash course in basic music 
theory, you’re ready to translate written music into the lan- 
guage of the TI. The simple piece shown in Figure 5-5, 
consisting only of a melody line, will be used as the first 
example. 


Figure 5-5. Example Piece 


Moderato 


The first thing to do is to determine the tempo of the 
piece. A tempo mark (generally an Italian word or phrase) 
usually appears at the top left corner of a musical piece. In 
this example, the tempo is marked Moderato, indicating that 
the music should be played at a moderate rate of speed. Some 
other commonly used tempo markings and their meanings are 
listed in Table 5-3. 


Table 5-3. Tempo Marks 
In order of increasing speed 


Largo broadly, very slowly 

Lento slowly 

Adagio slowly, leisurely 

Andante moderately slow, flowing 

Andantino slightly faster than andante 

Moderato moderately 

Allegretto quickly, but not as fast as allegro me 

Allegro at a quick pace, lively a 

Vivace or Vivo lively | 

Presto very fast 

Prestissimo faster than presto ony 
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The tempo lets you decide on the relative durations of 
individual notes. If the tempo indicated is fast, the notes 
would be shorter than if the tempo were slow. For example, in 
a piece marked presto a quarter note might last 250 milli- 
seconds, while in a piece marked lento it would last 1000 
milliseconds. 

Next, one type of note must be chosen as the basis for 
determining the relative duration of the other notes in the 
piece. A good choice would be the note indicated in the time 
signature. This piece is written in 4/4 time; therefore, the 
quarter note is a logical choice. 

Since the piece has a moderate tempo, the quarter note 
will be assigned a duration of 500 milliseconds. The durations 
of other types of notes could be computed separately. But it is 
simpler to assign the quarter note’s duration to a variable and 
then express the durations of other notes in terms of that vari- 
able. For example, if T represents the duration of a quarter 
note, then a half note would be represented by 2*T, a whole 
note by 4*T, an eighth note by T/2, and so on. This method 
also lets you change the tempo of the entire piece simply by 
changing the value of T. 

Now you can determine the actual musical tones repre- 
sented by the notes. The frequencies of those tones could be 
looked up note by note as the piece is transcribed; however, 
going back and forth between the music, the frequency table, 
and the keyboard can get rather tedious. The process is made 
easier by first determining the range of specific frequencies 
used in the piece and then assigning those frequencies to vari- 
ables. The variable names should correspond to the letter 
names of the tones (that is, A, B, C, D, E, F, and G), and there 
must be some way of distinguishing tones with the same letter 
name. One variable-naming scheme for musical tones is 
shown in Table 5-4. 

In this piece, the tones range from middle C to high C. 
However, before assigning frequencies to variable names, the 
key signature must be checked to see if any notes are sharped 
or flatted. This particular key signature indicates no sharps or 
flats, so no variables representing sharp or flat tones will be 
needed unless a sharp or flat appears in the body of the 
music. 

Once the duration parameter has been established and the 
frequency variables have been defined, each note piece can be 


127 


SOUNC Ss 


translated into a CALL SOUND statement. “Music Demo 1” 
shows how this is done. For simplicity’s sake, a single volume 
is used throughout the piece. 


Table 5-4. Variable Names for Musical Tones 


Musical Tone 
A (110) 

A#, Bb (117) 
B (123) 

Low C (131) 
C#, Db (139) 
D (147) 

D#, Eb (156) 
E (165) 

F (175) 

F#, Gb(185) 
G (196) 

G#, Ab (208) 
A (220) 

A#, Bb (233) 
B (247) 
Middle C (262) 
C#, Db (277) 
D (294) 

D#, Eb (311) 
E (330) 

F (349) 

F#, Gb (370) 
G (392) 

G#, Ab (415) 
A (440) 


Variable Name 
LLA 

LLAS or LLBF 
LLB 

LC 

LCS or LDF 
LD 

LDS or LEF 
LE 

LF 

LFS or LGF 
LG 

LGS or LAF 
LA 

LAS or LBF 
LB 

Cc 

CS or DF 

D 

DS or EF 

E 

F 

FS or GF 

G 

GS or AF 

A 


Musical Tone 
A (440) 

A#, Bb (466) 
B (494) 

High C (523) 
C#, Db (554) 
D (587) 

D#, Eb (622) 
E (659) 

F (698) 

F#, Gb (740) 
G (784) 

G#, Ab (831) 
A (880) 

A#, Bb (932) 
B (988) 

C (1047) 

C#, Db (1109) 
D (1175) 

D#, Eb (1245) 
E (1319) 

F (1397) 

F#, Gb (1480) 
G (1568) 

G#, Ab (1661) 
A (1760) 


Program 5-3. Music Demo I 


198 T=509 


114 


128 
136 
149 
15d 
160 
178 
186 
196 
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C=262 :3 


=449 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


D=294 ::; 
2: B=494 ::; 
SOUND (T,HC,@) 


SOUND (T/2,HC,@) 
SOUND (T/2,B,9) 


SOUND(T,A,9) 
SOUND (T,A,®) 
SOUND (T,G,@) 


SOUND (T/2,G,®@) 
SOUND (T/2,F,@) 


E=330 :: 
HC=523 


F=349 3: 


Variable Name 
A 

AS or BF 

B 

HC 

HCS or HDF 
HD 

HDS or HEF 
HE 

HF 

HFS or HGF 
HG 

HGS or HAF 
HA 

HAS or HBF 
HB 

HHC 

HHCS or HHDF 
HHD 

HHDS or HHEF 
HHE 

HHF 

HHFS or HHGF 
HHG 

HHGS or HHAF 
HHA 


G=392 :: A 


SY J Ua 


“dod 


“i 


“ad 7 


SOUT 


208 CALL SOUND(T,E,9) 

218 CALL SOUND(T/2,E,9) 
228 CALL SOUND(T/2,F,9) 
238 CALL SOUND(T,G,9) 

248 CALL SOUND(T,C,9) 

258 CALL SOUND(T,D,@) 

268 CALL SOUND(T,F,9@) 

276 CALL SOUND(T+T/2,E,9) 
288 CALL SOUND(T/2,D,9) 
299 CALL SOUND(T,C,9) 


How Music Demo 1 Works 


Line 

100 Set the variable T to 500 (milliseconds). The variable T 
represents the duration of a quarter note. 

110 Define the variables representing the frequencies of the 
notes from middle C to high C. 

120 Translate the first note of the first measure into a 


CALL SOUND statement. This note is a quarter note 
representing the musical tone high C; therefore, its 
duration is represented by T, and its frequency is 
represented by HC. 

130 Translate the second note of the first measure. This 


note is an eighth note (T/2) representing the musical 
tone high C (HC). 


140 Translate the third note of the first measure. This note 
is an eighth note (T/2) representing the musical tone B. 


150 Translate a quarter note (T) representing the tone A. 
160 Translate a quarter note (T) representing the tone A. 
170 Translate a quarter note (T) representing the tone G. 
180 Translate an eighth note (T/2) representing the tone G. 
190 Translate an eighth note (T/2) representing the tone F. 
200 Translate a quarter note (T) representing the tone E. 
210 Translate an eighth note (T/2) representing the tone E 
220 Translate an eighth note (T/2) representing the tone F. 
230 Translate a quarter note (T) representing the tone G. 
240 Translate a quarter note (T) representing the tone C. 
250 Translate a quarter note (T) representing the tone D. 
260 Translate a quarter note (T) representing the tone F. 
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270 Translate a dotted quarter note (T+T/2) representing 
the tone E. 

280 Translate an eighth note (T/2) representing the tone D. 

290 Translate a quarter note (T) representing the tone mid- 
dle C. 


Note that a quarter rest constitutes the last beat of the last 
measure. Had the rest appeared within the music, you would 
have needed a pause with the same duration as a quarter note 
(500 milliseconds). To get it, you could use a CALL SOUND 
statement specifying any frequency but the softest volume 
(30). For example, the following CALL SOUND statement 
would produce the pause called for by a quarter rest: 


CALL SOUND (T,110,30) 


Figure 5-6 expands the example piece to include bass 
accompaniment. Only minor program alterations are required. 
The relative note durations remain the same. However, the 
range of musical tones must be expanded since the bass notes 
range from low C to middle C and include two flats in the 
third measure. Once the variables for these additional tones 
have been defined, the CALL SOUND statements can be 
altered to include the bass notes. 


Figure 5-6. Example Piece with Bass 
Accompaniment 


Moderato 


When corresponding treble and bass notes have the same 
duration, as do the first treble and bass notes of the first mea- 
sure, adding the bass note is simply a matter of adding 
another set of frequency and volume parameters. But if the 
bass and treble notes do not have the same duration, the dura- 
tion parameter must be changed to correspond with the note 
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that is shorter. The longer note must be distributed over two 
(or more) CALL SOUND statements. 

For example, the second treble note in the first measure is 
an eighth note, while its accompanying bass note is a quarter 
note. The CALL SOUND statement initiating both notes 
would have to have a duration parameter corresponding to an 
eighth note (T/2), which would complete the eighth note and 
the first half of the quarter note. The remainder of the quarter 
note would have to be completed in the next CALL SOUND 
statement—but it would still sound as a single, uninterrupted 
quarter note, even though it was distributed over two separate 
CALL SOUND statements. 

The following program demonstrates how the bass 
accompaniment could be added to the example piece. 


Program 5-4. Music Demo 2 


168 T=580 
11@ LC=131 :: LD=147 :: LE=165 :: LF= 
2: LAF=208 :: LA=220 :: LBF=233 

126 c=262 :: D=294 :: E=330 :: F=349 
=440 :: B=494 :: HC=523 

138 CALL SOUND(T,HC,%,LC,®) 

148 CALL SOUND(T/2,HC,8,LE,@) 

15@ CALL SOUND(T/2,B,9,LE,9) 

16@ CALL SOUND(T,A,8,LF,9@) 

176 CALL SOUND(T,A,%,LF,@) 

188 CALL SOUND(T,G,%,LG,®) 

198 CALL SOUND(T/2,G,8,LB,98) 

208 CALL SOUND(T/2,F,9,LB,9) 

216 CALL SOUND(T,E,9,C,@) 

228 CALL SOUND(T/2,E,0,C,@) 

238 CALL SOUND(T/2,F,%9,C,@) 

248 CALL SOUND(T,G,®@) 

25@ CALL SOUND(T,C,9%,LBF,9@) 

268 CALL SOUND(T,D,9,LA,9@) 

278 CALL SOUND(T,F,9,LAF,@) 

288 CALL SOUND(T,E,®,LG,9) 

299 CALL SOUND(T/2,E,90,LF,@) 

388 CALL SOUND(T/2,D,0,LF,9) 

318 CALL SOUND(T,C,8,LE,9) 
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How Music Demo 2 Works 


Line(s) 
100 
110-120 
130 

140 


150 
160 


170 
180 
190 


200 
210 


220 


230 
240 


250 
260 
270 
280 
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Set the variable T (duration of a quarter note) to 500. 


Define the variables representing the frequencies of the 
notes. 


The bass note, low C, is added. Since both notes are 
quarter notes, the duration remains the same. 


Low E, a quarter note, is added. It must be included in 
the next CALL SOUND since its duration is longer 
than that of the eighth note it accompanies. 


Low E is added again, and thus given its full duration. 


Low F, a half note, is added. It must be included in the 
next CALL SOUND since its duration is longer than 
that of the quarter note it accompanies. 


Low F is added again, and thus given its full duration. 
Low G is added. Both notes are quarter notes. 


Low B, a quarter note, is added. It must be included in 
the next CALL SOUND since its duration is longer 
than that of the eighth note it accompanies. 


Low B is added again, and thus given its full duration. 


Middle C, a half note, is added. It must be included in 
the next CALL SOUND since its duration is longer 
than that of the quarter note it accompanies. 


Middle C is added again, but must also be included in 
the next CALL SOUND in order to be given its full 
duration. 


Middle C is added again, and thus given its full 
duration. 


A quarter rest accompanies a quarter note; therefore, 
no note is added. 

Low BP is added. Both notes are quarter notes. 

Low A is added. Both notes are quarter notes. 

Low AD is added. Both notes are quarter notes. 


Low G, a quarter note, is added. In this case, this bass 
note has a shorter duration than the treble note it 
accompanies; thus, the duration must be changed (T) 
and the treble nate must be included in the next CALL 
SOUND statement. — 
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290 The treble note, E, is continued for the remainder of its 
duration (T/2). Low F, a quarter note, is added. It must 
be included in the next CALL SOUND since its dura- 
tion is longer than the remaining duration of the treble 
note it accompanies. 


300 Low F is added again, and thus is given its full 
duration. 
310 Low E is added. Both notes are quarter notes. 


In the previous examples, both tempo and volume 
remained constant. However, by varying the appropriate 
parameters, the music can be given much more feeling. Most 
musical compositions contain expression marks indicating 
varying degrees of loudness as well as changes in tempo, and 
some commonly used expression marks are shown in Figure 
5-7. 


Figure 5-7. Expression Marks 


Pertaining to Volume 


Sign Italian Name Meaning 
pp pianissimo very soft 
p piano soft 
mp mezzo piano moderately soft 
mf mezzo forte moderately loud 
f forte loud 
ff fortissimo very loud 
——_ crescendo play gradually louder 
(cresc.) 
——— decrescendo play gradually softer 
(decresc.) 
(No Sign) diminuendo play gradually softer 
(dim., dimin.) 


Pertaining to Tempo 


ritardando (rit.) —_ slow down 
accelerando (accel.) = speed up 
a tempo — resume original tempo 
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The following program transcribes the musical piece 
shown in Figure 5-8. The volume and tempo are varied to give 
the piece expression. 


Program 5-5. Music Demo 3 


1960 T=589 
119 LD=147 :: LE=165 :: LFS=185 :: LG=196 :: LA=22 
@ :: LB=247 


120 C=262 :: D=294 :: E=330 :: FS=37G :: G=392 :: 
A=440 :: B=494 

130 HC=523 :: HD=587 :: HE=659 :: HFS=740 :: HG=78 
4 


148 CALL SOUND(T,HD,7,LB,7,LG,7) 
158 CALL SOUND(T/2,G,7,LB,7,LG,7) 
168 CALL SOUND(T/2,A,7,LB,7,LG,7) 
178 CALL SOUND(T/2,B,7,LA,7) 

188 CALL SOUND(T/2,HC,7,LA,7) 
198 CALL SOUND(T,HD,7,LB,7) 

268 CALL SOUND(T,G,7,LB,7) 

218 CALL SOUND(T,G,7,LB,7) 

226 CALL SOUND(T,HE,6,C,6) 

230 CALL SOUND(T/2,HC,5,C,5) 

246 CALL SOUND(T/2,HD,4,C,4) 

258 CALL SOUND(T/2,HE,3,C,3) 

266 CALL SOUND(T/2,HFS,2,C,2) 
278 CALL SOUND(T,HG,9,LB,@) 

289 CALL SOUND(T,G,8,LB,®@) 

298 CALL SOUND(T,G,9,LB,@) 

366 CALL SOUND(T,HC,9,LA,@) 

318 CALL SOUND(T/2,HD,9,LA,@) 
329 CALL SOUND(T/2,HC,9,LA,9) 
338 CALL SOUND(T/2,B,8,LA,@) 

348 CALL SOUND(T/2,A,8,LA,9) 

358 CALL SOUND(T,B,9,LG,0) 

366 CALL SOUND(T/2,HC,®8,LG,®@) 
378 CALL SOUND(T/2,B,0,LG,®8) 

388 CALL SOUND(T/2,A,8,LG,@) 

398 CALL SOUND(T/2,G,G,LG,@) 

496 CALL SOUND(T,A,2,C,2) 


428 CALL SOUND(T/2,B,3,D,3) 
438 CALL SOUND(T/2,A,4,D,4) 
449 CALL SOUND(T/2,G,5,LD,5) 
459 CALL SOUND(T/2,FS,6,LD,6) 
468 CALL SOUND(3*T,G,7,LG,7) 


134 


342 


Jj 


oe ee 


“tod 


“aad 


Figure 5-8. Music for Music Demo 3 
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How Music Demo 3 Works 
Line(s) 
100 This piece has a moderate tempo, and its time sig- 


110-130 


140 


150 


160 


170 


180 


190 


200 


210 


220 


230 
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nature indicates that the quarter note would be a good 
basis for the duration parameter. Therefore, the vari- 
able T represents the duration of a quarter note and is 
set to 500 milliseconds. 


Define the variables representing the frequencies of the 
notes. Notice that the key signature indicates that all 
F’s are sharped throughout the piece. 


High D (quarter note), low B (half note), and low G 
(half note) are transcribed. The shorter duration of the 
quarter note (T) is specified. The volume of the notes is 
set to 7 since the expression mark (mp) indicates that 
they are to be played moderately softly. 


G (eighth note) is transcribed. Low B and low G are 
continued. The shorter duration of G is continued. The 
shorter duration of G (T/2) is used. 


A (eighth note) is transcribed. Low B and low G are 
continued for the remainder of their duration (T/2), 
which is the same as the duration of A. 


B (eighth note) and low A (quarter note) are tran- 
scribed. The shorter duration of B (T/2) is used. 


High C (eighth note) is transcribed. Low A is contin- 
ued for the remainder of its duration (T/2), which is 
the same as the duration of high C. 


High D (quarter note) and low B (dotted half note) are 
transcribed. The shorter duration of high D (T) is used. 


G (quarter note) is transcribed. Low B is continued. 
The shorter duration of G (T) is used. 


G (quarter note) is transcribed. Low B is continued for 
the remainder of its duration (T), which is the same as 
the duration of G. 


High E (quarter note) and middle C (dotted half note) 
are transcribed. The shorter duration of high E (T) is 
used. The expression mark indicates that the notes are 
to be played gradually louder. Therefore, the volume 
specified is gradually increased. 


High C (eighth note) is transcribed. Middle C is contin- 
ued. The shorter duration of high C (T/2) is used. 
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250 


260 


270 


280 


290 


300 


310 


320 


330 


340 


350 


360 


370 


380 


390 


400 


High D (eighth note) is transcribed. Middle C is 
continued. The shorter duration of high D (T/2) is used. 


High E (eighth note) is transcribed. Middle C is contin- 
ued. The shorter duration of high E is used. 


High F sharp (eighth note) is transcribed. Middle C is 
continued for the remainder of its duration (T/2), 
which is the same as the duration of high F sharp. 


High G (quarter note) and low B (dotted half note) are 
transcribed. The shorter duration of high G (T) is used. 


G (quarter note) is transcribed. Low B is continued. 
The shorter duration of G (T) is used. 


G (quarter note) is transcribed. Low B is continued for 
the remainder of its duration (T), which is the same as 
the duration of G. 


High C (quarter note) and low A (dotted half note) are 
transcribed. The shorter duration of high C (T) is used. 


High D (eighth note) is transcribed. Low A is contin- 
ued. The shorter duration of high D (T/2) is used. 


High C (eighth note) is transcribed. Low A is contin- 
ued. The shorter duration of high C is used. 


B (eighth note) is transcribed. Low A is continued. The 
shorter duration of B is used. 


A (eighth note) is transcribed. Low A is continued for 
the remainder of its duration (T/2), which is the same 
as the duration of A. 


B (quarter note) and low G (dotted half note) are tran- 
scribed. The shorter duration of B (T) is used. 


High C (eighth note) is transcribed. Low G is contin- 
ued. The shorter duration of high C (T/2) is used. 


B (eighth note) is transcribed. Low G is continued. The 
shorter duration of B (T/2) is used. 


A (eighth note) is transcribed. Low G is continued. The 
shorter duration of A is used. 


G (eighth note) is transcribed. Low G is continued for 
the remainder of its duration (T/2), which is the same 
as the duration of G. 


A and middle C are transcribed. Both notes are quarter 
notes (T). The expression mark indicates that the notes 
should be played gradually softer; therefore, the vol- 
ume specified is gradually decreased. 
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410 The expression mark (rit.) indicates that the notes 
should be played slower; therefore, the basis for the 
duration parameter is lengthened. 


jd 


420 B (eighth note) and D (quarter note) are transcribed. 
The shorter duration of B (T/2) is used. 
430 A (eighth note) is transcribed. D is continued for the 


remainder of its duration (T/2), which is the same as 
the duration of A. 


440 G (eighth note) and low D (quarter note) are tran- 
scribed. The shorter duration of G (T/2) is used. 
450 F-sharp (eighth note) is transcribed. Low D is contin- 


ued for the remainder of its duration (T/2), which is 
the same as the duration of F-sharp. 


460 G and low G are transcribed. Both notes are dotted 
half notes (3 x T). 


The final program in this section is the transcription of a 
fairly complex Bach prelude. One problem which may arise 
when working with such a piece is the need to play more than 
three notes at one time. In such a case, one of the notes will 
have to be excluded. Which to exclude is best decided by try- 
ing the possible combinations and letting your ear be the 
judge. Another problem may be caused by notes below the 
range of the TI. This can sometimes be handled by replacing 
the note with the same note an octave higher; if that doesn’t 
sound right, the note will have to be excluded. 


Program 5-6. Bach Prelude 


198 T=590 ay 

116 LLA=11@ :: LLBF=117 :: Lc=131 :: LD=147 :: LE= 
165 :: LF=175 :: LG=196 ;:: LA= : 

220 :: LBF=233 . 

120 C=262 :: D=294 :: E=33@ :: F=349 :: G=392 :: A 
=440 :: BF=466 

13@ HC=523 :: HD=587 :: HE=659 :: HF=698 :: HG=784 

:: HA=888 :: HBF=932 

148 CALL CLEAR 

158 CALL SCREEN(14) 

168 DISPLAY AT(5,9):"P RE LU D E" 

178 DISPLAY AT(9,9):"J. S. BAC R" 

186 FOR DEL=1 TO 1008 :: NEXT DEL 

198 CALL SOUND(T/4,LA,10,LF,10) 

266 CALL SOUND(T/4,HC,19) 
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CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALI. 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


- CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


SOUND(T/4,A,19,C,19,LF,19) 
SOUND (T/4,HC,10) 

SOUND (T/4,F,9,LA,9,LF,9) 
SOUND (T/4,HC,9) 

SOUND (T/4,A,9,C,9,LF,9) 
SOUND (T/4,HC,9) 

SOUND (T/4,F,8) 

SOUND (T/4,HD,8) 

SOUND (T/4,BF,8,D,8,LF,8) 
SOUND (T/4,HD,8) 

SOUND (T/4,F,7,LBF,7,LF,7) 
SOUND (T/4,HD,7) 

SOUND (T/4,BF,7,D,7,LF,7) 
SOUND (T/4,HD,7) 

SOUND (T/4,G,6) 

SOUND (T/4,HE,6) 

SOUND (T/4,BF,6,LG,6,LF,6) 
SOUND (T/4,HE,6) 
SOUND(T/4,G,6,LBF,6,LF,6) 
SOUND (T/4,HE,6) 

SOUND (T/4,BF,6,LG,6,LF,6) 
SOUND (T/4,HE,6) 

SOUND (T/4,HF,7,LA,7,LF,7) 
SOUND (T/4,HC,8) 

SOUND (T/4,A,9) 

SOUND (T/4,HC,1@) 

SOUND (T/4,F,10) 

SOUND (T/4,C,1@) 

SOUND (T/4,LA,19) 

SOUND (T/4,C,16) 

SOUND (T/4,LF,1@) 

SOUND (T/4,C,1@) 

SOUND (T/4,HF,9,HC,9,LA,9) 
SOUND(T/4,C,9) 

SOUND (T/4,HF,9,A,9,LF,9) 
SOUND(T/4,C,9) 

SOUND (T/4,HF,&,HC,8,LA,8) 
SOUND (T/4,C,8) 

SOUND (T/4,LF,8) 
SOUND(T/4,D,8) 

SOUND (T/4,HF,7,HD,7,LBF,7) 
SOUND(T/4,D,7) 

SOUND (T/4,HF,7,BF,7,LF,7) 
SOUND (T/4,D,7) 

SOUND (T/4,HF,6,HD,6,LBF,6) 
SOUND(T/4,D,6) 

SOUND (T/4,LG,6) 

SOUND (T/4,E,6) 

SOUND (T/4,HG,6,HE,6,LBF,6) 
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CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALI 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


SOUND(T/4,E,6) 


SOUND (T/4,HBF,6,HE,6,LG,6) 


SOUND (T/4,E,6) 


SOUND (T/4,HG,6,HE,6,LBF,6) 


SOUND (T/4,E,6) 


SOUND(T/4,HA,7,HF,7,F,7) 


SOUND (T/4,C,7) 
SOUND (T/4,LA,8) 
SOUND (T/4,C,8) 
SOUND (T/4,LF,9) 
SOUND (T/4,LC,9) 
SOUND (T/4,LLA,10) 
SOUND (T/4,LC,1@) 
SOUND (T/4,LF,10) 
SOUND (T/4,HA,19) 


SOUND (T/4,HF,18,LG,19) 


SOUND (T/4,HA,1@) 


SOUND (T/4,HC,9,LLA,9) 


SOUND (T/4,HA,9 


SOUND (T/4,HF,9,LBF,9) 


SOUND(T/4,HA,¢) 
SOUND (T/4,HC,8,LC,8&) 
SOUND (T/4,HG,8) 
SOUND (T/4,HF,8,LD,8) 
SOUND(T/4,HG,8) 
SOUND(T/4,HC,7,LE,7) 
SOUND (T/4,HG,7) 
SOUND(T/4,HE,7,LC,7) 
SOUND (T/4,HG,7) 
SOUND (T/4,A,6,LD,6) 
SOUND (T/4,HF,6) 


SOUND(T/4,HE,6,LE,6) 


SOUND (T/4,HF,6) 
SOUND (T/4,A,6,LF,6) 
SOUND (T/4,HF,6) 


SOUND (T/4,HD,6,LG,6) 


SOUND (T/4,HF,6) 
SOUND (T/4,A,6,LA,6) 
SOUND (T/4,HE,6) 


SOUND(T/4,HD,6,LBF,6) 


SOUND (T/4,HE,6) 
SOUND (T/4,A,6,C,6) 
SOUND (T/4,HE,6) 


SOUND (T/4,HC,6,LA,6) 


SOUND (T/4,HE,6) 


SOUND (T/4,F,6,LBF,6) 


SOUND (T/4,HD,6) 


SOUND (T/4,HC,6,LA,6) 


SOUND (T/4,HD,6) 


- 
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1190 
1290 
1216 
1226 
1238 
1248 
1256 
1266 
1276 
1280 
1296 
1386 
1316 
132 
1336 


1346 
1358 
1366 
1378 
1386 
1398 
1486 
1416 
1420 
1436 
1449 
14590 
1469 
1476 
1486 
1499 
1599 
1519 
1529 
1539 
1549 
15598 
1560 
1576 
1580 
1599 
16089 
1619 
1629 
1639 
1646 
1658 
1660 
1676 


SOUND(T/4,G,6,LG,6) 
SOUND(T/4,HD,6) 

SOUND (T/4,BF,6,LF,6) 
SOUND (T/4,HD,6) 

SOUND (T/4,G,6,LE,6) 
SOUND (T/4,HC,6) 

SOUND (T/4,BF,6,LC,6) 
SOUND (T/4,HC,6) 

SOUND (T/4,F,6,LF,6) 
SOUND (T/4,HC,6) 

SOUND (T/4,A,6,LE,6) 
SOUND (T/4,HC,6) 

SOUND (T/4,F,6,LD,6) 
SOUND (T/4,BF,6) 

SOUND (T/4,A,6,LG,6) 
SOUND (T/4,BF,6) 

SOUND (T/4,C,6,LE,6) 
SOUND (T/4,BF,6) 

SOUND (T/4,G,6,LC,6) 
SOUND(T/4,BF,6) 

SOUND (T/4,C,6,LF,6) 
SOUND (T/4,A,6,LC,6) 
SOUND (T/4,F,6,LLA,6) 
SOUND (T/4,A,6,LC,6) 
SOUND (T/4,C,6,LF,6) 
SOUND (T/4,A,6,LLA,6) 
SOUND (T/4,F,6,LC,6) 
SOUND (T/4,A,6,LF,6) 
SOUND (T/4,D,6,LLBF, 6) 
SOUND (T/4,A,6) 

SOUND (T/4,F,6,LBF,6) 
SOUND (T/4,A,6) 

SOUND (T/4,D,6) 

SOUND (T/4,F,6) 

SOUND (T/4,A,6,LA,6) 
SOUND (T/4,HC,6) 

SOUND (T/4,D,10,LG,1@) 
SOUND (T/4,BF,19,LD,16) 
SOUND (T/4,G,9,LLBF, 9) 
SOUND (T/4,BF,9,LD,9) 
SOUND (T/4,D,8,LG,8) 
SOUND (T/4,BF,7,LLBF,7) 
SOUND (T/4,G,6,LD,6) 
SOUND (T/4,BF,6,LG,6) 
SOUND (T/4,E,5,LC,5) 
SOUND (T/4,BF,5) 

SOUND (T/4,G,6,C,6) 
SOUND (T/4,BF,6) 
SOUND(T/4,E,7) 
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1689 
1699 
1769 
1719 
1726 
1739 
1749 
1758 
1760 
1776 
1786 
1799 
1896 
1819 
1826 
1830 
1846 
1856 
1860 
1876 
1886 
1898 
1986 
191¢ 
1926 
1930 
1946 
1956 
1969 
1970 
1986 
1996 
20906 
2018 
2920 
2938 
2046 
2056 
29608 
2870 
2986 
2696 
2186 
21196 
2128 
2130 
2146 
2158 
2166 
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CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


SOUND (T/4,G,7) 

SOUND (T/4,BF,7,LBF,7) 
SOUND (T/4,HD,7) 
SOUND(T/4,F,7,LA,7) 
SOUND (T/4,HC,7) 

SOUND (T/4,A,7,LC,7) 
SOUND (T/4,HC,7) 

SOUND (T/4,HF,7,LA,7) 
SOUND (T/4,HC,7) 
SOUND(T/4,A,7,LC,7) 
SOUND(T/4,F,7) 

SOUND (T/4,LG,18) 

SOUND (T/4,BF,19) 
SOUND (T/4,G,18,LC,19) 
SOUND (T/4,BF,10) 

SOUND (T/4,HE,10,LG, 10) 
SOUND(T/4,BF,1@) 

SOUND (T/4,G,19,LC,18) 
SOUND (T/4,E,10) 

SOUND (T/4,LF,10) 

SOUND (T/4,A,19) 

SOUND (T/4,F,10,LC,1@) 
SOUND (T/4,A,1@) 

SOUND (T/4,HD,16,LF,10) 
SOUND (T/4,A,10) 

SOUND (T/4,F,19,LC,19) 
SOUND (T/4,D,10) 

SOUND (T/4,LE,16) 

SOUND (T/4,G,1@) 

SOUND (T/4,E,19,LC,19) 
SOUND (T/4,G,1@) 

SOUND (T/4,HC,19,LE, 10) 
SOUND (T/4,G,19) 

SOUND (T/4,E,19,LC,19) 
SOUND (T/4,C,1@) 
SOUND(T/4,LD,1@) 

SOUND (T/4,F,16) 
SOUND(T/4,D,10,LC,1@) 
SOUND (T/4,F,18) 

SOUND (T/4,G,10,LLBF,1G) 
SOUND (T/4,A,1@) 

SOUND (T/4,BF,19,LG,19) 
SOUND (T/4,D,106) 

SOUND (T/4,G,18,LE,1@) 
SOUND (T/4,A,10) 

SOUND (T/4,BF,19,LC,10) 
SOUND (T/4,E,19) 

SOUND (T/4,F,19,LA,19) 
SOUND (T/4,G,19) 
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2176 
2180 
2196 
2286 
2210 
2226 
2236 
2248 
2258 
2260 
2276 
2286 
2296 
2306 
2318 
2329 
2338 
2340 


2358 
2366 
2376 
2386 
2396 
2486 
241@ 
2426 
24396 
2446 
2450 
2468 
2476 
2486 
2496 
2560 
2516 
2520 
2536 
2548 
2556 
2560 
2578 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


SOUND (T/4,A,19,LF,1@) 
SOUND (T/4,C,16) 
SOUND(T/4,D,9,LBF,92) 
SOUND (T/4,F,9) 

SOUND (T/4,A,8) 

SOUND (T/4,HC,8) 

SOUND (T/4,BF,7) 

SOUND (T/4,A,7) 

SOUND (T/4,G,6) 

SOUND (T/4,BF,6) 

SOUND (T/4,HD,5) 

SOUND (T/4,HF,5) 

SOUND (T/4,HE,4) 

SOUND (T/4,HD,4) 

SOUND (T/4,HC, 3) 

SOUND (T/4,HE,3) 

SOUND (T/4,HG, 2) 

SOUND (T/4,HBF, 2) 

SOUND (T,HBF,%,HG,@%,LE,@) 
SOUND (T/2,HBF, 398) 

SOUND (T/2,HA,%,HF,9,LF,@) 
SOUND (T/4,BF,9,LD,@) 
SOUND (T/4,HG,@,HE,®@) 
SOUND (T/4,A,%,LLBF,9) 
SOUND (T/4,HF,@,HD,@) 
SOUND (T/4,G,9,LC,9) 
SOUND (T/4,HF,9%,HC,@) 
SOUND(T/4,G,9,LC,®) 
SOUND (T/4,HE,9,BF,@) 
SOUND (T*2,HF,9,HC,8,LF,@) 


FOR X=1 TO 59@ 


NEXT 
CALI 


x 
CLEAR 


PRINT "PLAY IT AGAIN?" 
PRINT 
PRINT “ENTER Y OR N:" 


CALL 


KEY (3,REPLY, STATUS) 


IF STATUS=6 THEN 2530 
IF REPLY=89 THEN 148 
IF REPLY<>78 THEN 2590 


END 


Sound Effects 

As you'll recall, a sound’s character is determined by its vibra- 

tional pattern, frequency, and amplitude. That is true whether 

the sound is music, footsteps, or the blast of a rocket engine. 
Not surprisingly, a great many sounds other than musical 
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tones can be created by using the CALL SOUND subprogram. 
The examples that follow demonstrate some of these sounds. 
Keep in mind, however, that these examples represent only a 
small fraction of the sounds the TI is capable of producing. 
You will discover hundreds of others by experimenting with 
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~~ CALL SOUND. 


Rocket in Motion 

The sound of a rocket’s engines can easily be produced by 
using noise frequency — 7. For example, a continuous burn can 
be simulated by placing a CALL SOUND statement in a loop, 
as in the following example. 


100 REM ROCKET IN MOTION 
110 FOR L=1 to 10 

120 CALL SOUND(1000, —7,3) 
130 NEXT L 


Morse Code 

You can simulate a Morse code transmitter by using the RND 
function to alternate between two durations. In the following 
program, the 700 frequency is sounded for either 40 milli- 
seconds (short) or 150 milliseconds (long). The loop in line 
130 introduces a slight delay so that the tones have time to 
complete. 


100 REM MORSE CODE 

110 RANDOMIZE 

120 IF RND>.5 THEN CALL SOUND(150,700,0) ELSE CALL 
SOUND(40,700,0) 

130 FOR D=1 TO 20 :: NEXT D 

140 GOTO 120 


Computer 

Movies about computers are generally accompanied by an 
impressionistic conception of what a computer might sound 
like. The following program example produces one such 
sound. It randomly picks a frequency between 2500 and 4750, 
in increments of 250, and plays it for 15 milliseconds. 


100 REM COMPUTER 
110 RANDOMIZE 

120 FOR L=1 to 200 

130 CALL SOUND(15,2500+(250*(RND)),0) 
140 NEXT L 
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Sirens 

Sirens used by American police are generally identified by a 
rising, and then falling, pitch. The first program uses two 
loops to produce such a sound. The first loop increases the 
frequency each time the CALL SOUND statement is 
encountered, while the second loop decreases the frequency 
for each CALL SOUND. 

Notice that a negative duration is used. This causes the 
last CALL SOUND to end as soon as the next one is 
encountered. The result is a smoothly rising or falling tone. 
The choice of 60 for duration was somewhat arbitrary, since 
any negative duration immediately terminates the previous 
CALL SOUND. Generally, any number above 50 will work. A 
number below 50 produces a tone that will finish before 
BASIC can complete the loop. In this case, the result is a gap 
in the sound. 


100 REM AMERICAN SIREN 

110 FOR T=1 TO 10 

120 FOR L=800 to 1200 STEP 8 
130 CALL SOUND(—60,L,0) 

140 NEXT L 

150 FOR L=1200 to 800 STEP —8 
160 CALL SOUND(—60,L,0) 

170 NEXT L 

180 NEXT T 


To emulate a European-style siren, which alternates 
between two distinct frequencies, RUN the following program. 


100 REM EUROPEAN SIREN 
110 FOR L=1 to 10 

120 CALL SOUND(400,500,0) 
130 CALL SOUND(400,300,0) 
140 NEXT L 


Bomb and Explosion 

You can simulate a falling bomb by combining decreasing 
pitch with decreasing volume. Then use a low frequency (110) 
and a —7 noise frequency, again with decreasing volume, to 
produce the explosion. Negative duration was used to produce 
a smooth decrease in pitch. 


100 REM BOMB AND EXPLOSION 
110 FOR L=1 to 90 
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120 CALL SOUND(—60,1400—(L*6),L/9) 
130 NEXT L 

140 FOR L=0 to 30 

150 CALL SOUND(—60,110,L,—7,L) 

160 NEXT L 


Bells 
When a bell is struck, several things occur. The bell vibrates at 
its primary frequency, it vibrates at its secondary frequencies 
(overtones), and its amplitude (volume) gradually decreases. 
The next program imitates that sound, and the result is 
unmistakably that of a bell. By using the three voices available 
on the TI to produce the primary and secondary frequencies, 
and by using a loop to produce a decaying amplitude, the bell 
sound can easily be simulated with CALL SOUND. 


100 REM BELL 

110 FOR L=0 to 30 STEP 2 

120 CALL SOUND(—50,700,L,2100,L,4200,L) 
130 NEXT L 


By lowering the frequencies and adding a second loop, a 
clock-type bell can be produced. 


100 CLOCK BELL 

110 FOR L=1 TO 6 

120 FOR L2=0 TO 30 STEP 3 

130 CALL SOUND(—50,400,L2,1200,L2,2400,L2) 
140 NEXT L2 

150 FOR D=1 TO 200 :: NEXT D 

160 NEXT L 
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ou’ve already seen that graphics, music, and sound 
effects can mean the difference between an average 
program and an outstanding one. But another impres- 
sive program addition is speech. 

The possibilities for using computer-generated speech are 
virtually endless. It can be incorporated into a game program 
to verbally offer instructions, for instance, or to inject com- 
ments (good or bad) on the progress or skill of the players. In 
a tutorial program, speech can be used to literally tell a stu- 
dent if an answer is correct—and, if the answer was wrong, 
the speech synthesizer can give the correct answer. Speech 
also permits verbal explanations in educational programs for 
children who haven't yet learned to read. Besides, apart from 
being useful in programs, it’s fun to have a computer that can 
talk. 

In order to produce speech on your TI, you must have 
TI’s PHP-1500 speech synthesizer peripheral. This device 
incorporates the Texas Instruments TMS5200 speech synthesis 
processor chip, which was first introduced in 1978 as part of 
TI’s Speak and Spell product line. The TMS5200 uses linear 
predictive coding (LPC) techniques to generate a mathematical 
model of human speech from the incoming text string. The 
resulting electronic vocal tract is passed through a digital-to- 
analog converter, which yields an audio signal, and eventually 
on to the speaker. 

In Extended BASIC, there are two ways to add speech to 
your programs. One is to use the speech synthesizer’s resident 
vocabulary (Table 6-1) which contains 373 letters, numbers, 
words, and phrases. This vocabulary can be enlarged by 
manipulating the speech codes that make up the words. 

Alternatively, you can use TI's text-to-speech diskette 
software, which is designed to work with TI’s Extended BASIC 
command module. It gives you the capability to synthesize 
almost any word in the English language. 
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Table 6-1. Resident Vocabulary 


— (NEGATIVE) 
+ (POSITIVE) 
. (POINT) 


OONID OR WNKH OO 


BETWEEN 
BLACK 
BLUE 
BOTH 
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BOTTOM 
BUT 
BUY 

BY 

BYE 


Cc 

CAN 
CASSETTE 
CENTER 
CHECK 
CHOICE 
CLEAR 
COLOR 
COME 
COMES 
COMMA 
COMMAND 
COMPLETE 
COMPLETED 
COMPUTER 
CONNECTED 
CONSOLE 
CORRECT 
COURSE 
CYAN 


D 

DATA 
DECIDE 
DEVICE 
DID 
DIFFERENT 
DISKETTE 
DO 

DOES 
DOING 
DONE 
DOUBLE 


DOWN 
DRAW 
DRAWING 


E 

EACH 
EIGHT 
EIGHTY 
ELEVEN 
ELSE 
END 
ENDS 
ENTER 
ERROR 
EXACTLY 
EYE 


F 
FIFTEEN 
FIFTY 
FIGURE 
FIND 
FINE 
FINISH 
FINISHED 
FIRST 

FIT 

FIVE 

FOR 
FORTY 
FOUR 
FOURTEEN 
FOURTH 
FROM 
FRONT 


G 
GAMES 
GET 


J444 


4 


JIJI13 


V4 
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GETTING 


GOOD 

GOOD WORK 
GOODBYE 
GOT 

GRAY 

GREEN 
GUESS 


H 

HAD 
HAND 
HANDHELD UNIT 
HAS 

HAVE 
HEAD 
HEAR 
HELLO 
HELP 
HERE 
HIGHER 
HIT 

HOME 
HOW 
HUNDRED 
HURRY 


I 

I WIN 

IF 

IN 

INCH 

INCHES 
INSTRUCTION 
INSTRUCTIONS 
IS 

IT 


J 
JOYSTICK 
JUST 


K 

KEY 
KEYBOARD 
KNOW 


L 
LARGE 
LARGER 
LARGEST 
LAST 
LEARN 
LEFT 
LESS 
LET 
LIKE 
LIKES 
LINE 
LOAD 
LONG 
LOOK 
LOOKS 
LOWER 


M 

MADE 
MAGENTA 
MAKE 

ME 

MEAN 
MEMORY 
MESSAGE 
MESSAGES 
MIDDLE 
MIGHT 
MODULE 
MORE 
MOST 
MOVE 


MUST 


N 

NAME 
NEAR 
NEED 
NEGATIVE 
NEXT 
NICE TRY 
NINE 
NINETY 
NO 

NOT 
NOW 
NUMBER 


O 

OF 
OFF 
OH 

ON 
ONE 
ONLY 
OR 
ORDER 
OTHER 
OUT 
OVER 


P 

PART 
PARTNER 
PARTS 
PERIOD 
PLAY 
PLAYS 
PLEASE 
POINT 
POSITION 
POSITIVE 
PRESS 
PRINT 
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PRINTER 
PROBLEM 
PROBLEMS 
PROGRAM 
PUT 
PUTTING 


Q 


R 
RANDOMLY 
READ (read) 
READ1 (red) 
READY TO START 
RECORDER 
RED 

REFER 
REMEMBER 
RETURN 
REWIND 
RIGHT 
ROUND 


S 

SAID 
SAVE 

SAY 

SAYS 
SCREEN 
SECOND 
SEE 

SEES 

SET 
SEVEN 
SEVENTY 
SHAPE 
SHAPES 
SHIFT 
SHORT 
SHORTER 
SHOULD 
SIDE 
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SIDES 

SIX 

SIXTY 
SMALL 
SMALLER 
SMALLEST 


SUPPOSED 
SUPPOSED TO 
SURE 


T 
TAKE 
TEEN 
TELL 
TEN 


TEXAS INSTRUMENTS 


THAN 
THAT 


THAT IS INCORRECT 


THAT IS RIGHT 
THE (the) 
THE (thuh) 
THEIR 
THEN 
THERE 
THESE 
THEY 
THING 
THINGS 
THINK 
THIRD 


THIRTEEN 
THIRTY 
THIS 
THREE 
THREW 
THROUGH 
TIME 

TO 
TOGETHER 
TONE 

TOO 

TOP 

TRY 

TRY AGAIN 
TURN 
TWELVE 
TWENTY 
TWO 

TYPE 


U 

UHOH 

UNDER 
UNDERSTAND 
UNTIL 

UP 

UPPER 

USE 


Vv 
VARY 
VERY 


WwW 

WAIT 
WANT 
WANTS 
WAY 

WE 
WEIGH 
WEIGHT 
WELL 
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WERE X 
WHAT 

WHAT WAS THAT Y 
WHEN YELLOW 
WHERE YES 
WHICH YET 
WHITE YOU 
WHO YOU WIN 
WHY YOUR 
WILL 

WITH Z 

WON ZERO 
WORD 

WORDS 

WORKING 

WRITE 


Extended BASIC’s resident vocabulary is accessed by 
either the CALL SPGET subprogram or the CALL SAY sub- 
program. CALL SPGET is used to obtain the actual speech 
codes that are used by the speech synthesizer to produce a 
word. It has the following format: 


CALL SPGET(word string,return string) 


Word string can be a string constant, string variable, or 
string expression corresponding to one of the entries in the 
resident vocabulary. If a string constant is used, it must be 
enclosed in quotation marks. The subprogram returns the 
string of speech codes corresponding to word string and stores 
it in return string, which must be a string variable. 

The following example demonstrates how CALL SPGET 
works. Notice that there are many blank spaces in the 
returned speech code string; that is because many of the codes 
cannot be printed. 


100 CALL SPGET(““HELLO”,w§$) 
110 PRINT W$ 
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The CALL SAY subprogram causes a word or words in 
the resident vocabulary to be spoken by the computer. If the 
subprogram is given a word which is not in the resident 
vocabulary, the computer will spell out the word rather than 
speak it. CALL SAY has the following format: 


CALL SAY(word string,direct string...) 


Word string can be a string constant, string variable, or a 
string expression and should correspond to one or more of the 
entries in the resident vocabulary. If a string constant is used, 
it must be enclosed in quotation marks. Direct string is a string 
variable in which the speech codes corresponding to a word 
have been stored by the CALL SPGET subprogram. The CALL 
SAY subprogram may specify either of the two parameters 
exclusively, or it may specify a combination of the two. The 
two parameters are, however, positional; if one is omitted, its 
omission must be indicated by an additional comma. 

The following examples demonstrate how CALL SAY 
works and illustrate the positional nature of its parameters. 


100 CALL SAY(“HELLO”) 


100 CALL SPGET(“ARE”,W$) 
110 CALL SAY(“WHO”,W$,“YOU”) 


100 A$="“HELLO” 
110 B$="HOW ARE YOU” 
120 CALL SAY(A$,,B$) 


100 CALL SPGET(““GOODBYE”,W$) 
110 CALL SAY(,W$) 


The speech produced by the CALL SAY subprogram can 
be made more natural by the use of commas (,), periods (.), 
and plus signs (+) within the specified string. As in actual 
speech, a comma indicates a slight pause, and a period 
indicates a slightly longer pause. A plus sign placed between 
words will cause them to sound more connected; in fact, the 
plus sign can be used to form new words out of old words (for 
example, hand + some = handsome). In addition to these 
symbols, number signs (#) may be used within a string to 
enclose phrases which are listed in the resident vocabulary as 
single entries (for example, #what was that#). If such phrases 
are not enclosed in number signs, the computer will spell out 
each word in the phrase. 
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The following examples demonstrate how these symbols 
may be used within the CALL SAY subprogram. 


100 CALL SAY(’7HOW ARE YOU. WELL, ANSWER ME.”) 


100 CALL SAY(“‘WHO ARE YOU”) 
110 FOR L=1 to 300 :: NEXT L 
120 CALL SAY(‘“‘WHO+ ARE+ YOU”) 


100 CALL SAY(I+ AM+THE #TEXAS INSTRUMENTS# 
HOME + COMPUTER”) 


Expanding the Resident Vocabulary 

Although TI’s resident vocabulary is limited to 373 entries, it 
is possible to expand the vocabulary by manipulating individ- 
ual speech codes. Such manipulation lets you add suffixes to 
words or create new words from two or more old words. Suf- 
fixes can be added by concatenating the string of speech codes 
corresponding to the suffix with the string of speech codes 
corresponding to the word. New words can be created by con- 
catenating part of the string of speech codes for one word with 
part of the string of speech codes for another word. 

The CALL SPGET subprogram provides access to the 
speech codes for entries in the resident vocabulary. But to add 
a suffix, you need some way to obtain the speech codes for 
the suffix you have in mind. Fortunately, Texas Instruments 
shows you how in Appendix M of the Extended BASIC man- 
ual. That appendix lists seven subprograms which build 
speech code strings for the suffixes -ing, -s, -ed, and their vari- 
ations (as determined by the type of word to which they are 
added). Since many of the speech codes cannot be printed, 
their corresponding ASCII codes can be used instead. 

The speech-code string corresponding to a particular word 
ends with certain codes that affect the timing of sounds within 
the word to make it sound more natural. In order to add a suf- 
fix while keeping the natural sound, some of those trailing 
codes must be removed by truncating the speech-code string. 
Which codes to remove is best determined by trial and error. 
Truncation may also be used to isolate word segments for the 
formation of new words. 

The following program, ‘Word Maker,” demonstrates 
how truncation and concatenation are used to add suffixes to 
words and to create new words from old words. 
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How Word Maker Works 


Line(s) 
110-110 


120-350 


360-410 


420-670 


680-900 
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Clear the screen and display the STAND BY message. 


Build the speech code strings for the seven suffixes. 
The speech codes for each suffix are stored as ASCII 
character codes in DATA statements at the end of the 
program. All the ASCII codes for a particular suffix are 
READ, converted to actual characters (CHR$), and con- 
catenated together. The concatenated strings are then 
stored in the subscripted variable SUF$. 


Clear the screen and present the main selection menu. 
The menu lets you choose between building a new 
word by adding a suffix or building a new word from 
two existing words. 


Routine to build a new word by adding a suffix. Lines 

440-480 display a menu which allows you to indicate 

the suffix you wish to add. Line 490 lets you enter the 

word to which the suffix will be added. Line 510 uses 

the CALL SPGET subprogram to obtain the speech 

string for the desired word. The length of the speech 

string is placed in the LW variable in line 520. Line 

530 asks you to indicate how many bytes to truncate 

from the end of the word. This is a trial-and-error 

procedure; a good practice is to start with five or ten 

and increment by five. Line 540 makes sure you do 

not try to truncate more bytes than are contained in 

the string. Lines 550-570 build the new word. Line 

550 subtracts truncated characters from the length of 

the word String. The —3 allows for the first three 

characters of the speech string, which are control 

characters. Line 560 builds the truncated word by con- 
catenating the first two characters of the old string 

(control characters), the length of the new string 

(which is in the third position), and the remainder of 

the old string after truncation (determined by TR). Line 

570 adds the appropriate suffix to the new string. Line 

580 then causes the computer to “speak” the new 

word. Lines 590-600 allow you to try the word again 

with a different truncation number or go back to the 7 
main menu. Lines 610-660 display the word, suffix, al 
and truncation number. These can be used in sub- 

sequent programs that will use the new word. = 


Build a new word by combining part of one word with 
another word. Lines 700-710 ask you to enter the two = 
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words. Line 720 uses CALL SPGET to get the speech 
strings for the two words. Line 750 asks you the num- 
ber of bytes to truncate from the first word. Lines 790- 
800 build the word by truncating the indicated number 
of bytes from the first word and then adding the sec- 
ond word to the end. Line 810 “speaks” the new 
word. Lines 820-830 let you try the word again or go 
back to the menu. Lines 840-890 display the two 
words and the truncation number for use by sub- 
sequent programs. 


910-1100 DATA statments that contain the ASCII equivalents of 


the speech strings for the seven suffixes. 


Note: When using Word Maker, do not try to truncate more than 50 
bytes at a time, or the program may crash. 


Program 6-1. Word Maker 


166 
119 
126 
139 
148 
156 
169 
1798 
188 
19 
299 
219 
220 
236 
249 
258 
268 
276 
286 
296 
30 
319 
3290 
336 
348 
350 
366 
370 
388 


CALL CLEAR 
DISPLAY AT(18,9): "STAND BY..." 
FOR L=1 TO 55 

READ A :: SUFS$(1)=SUFS$(1)&CHR$(A) 
NEXT L 

FOR L=1 TO 29 

READ A :: SUF$(2)=SUF$ (2) &CHRS (A) 
NEXT L 

FOR L=l1 TO 20 

READ A :: SUF$(3)=SUFS$ (3) &CHRS (A) 
NEXT L 

FOR L=l TO 37 

READ A :: SUF$(4)=SUFS (4) &CHR$ (A) 
NEXT L 

FOR L=1 TO 13 

READ A :: SUF$(5)=SUF$ (5) &CHR$ (A) 
NEXT L 

FOR L=1 TO 29 

READ A :: SUFS$(6)=SUFS(6)&CHRS$ (A) 
NEXT L 

FOR L=1 TO 39 

READ A :: SUFS$(7)=SUFS (7) &CHRS$ (A) 
NEXT L 

FOR L=1 TO 7 

READ AS :: SUFFIX$(L)=AS$ 

NEXT L 

CALL CLEAR 

DISPLAY AT(2,8): "WORDMAKER" 
DISPLAY AT(6,1):"l1 - ADD A SUFFIX" :: DISPLAY 
AT(8,1):"2 - MAKE A NEW WORD" 
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DISPLAY AT(12,1):"SELECT----> _" :: ACCEPT AT( 
12,13)VALIDATE("12")SIZE(-1)BEEP:OPT 

ON OPT GOTO 420,680 

GOTO 366 

CALL CLEAR 

DISPLAY AT(2,5):"ADD A SUFFIX" 

DISPLAY AT(6,1):"l - ADD ING" :: DISPLAY AT(8, 
1):"2 - ADD S AS IN CATS" 

DISPLAY AT(1%,1):"3 - ADD S AS IN CADS" :: DIS 
PLAY AT(12,1):"4 - ADD ES AS IN WISHES" 

DISPLAY AT(14,1):"5 - ADD ED AS IN PASSED" :: 

DISPLAY AT(16,1):"6 - ADD ED AS IN CAUSED" 

DISPLAY AT(18,1):"7 - ADD ED AS IN HEATED" 

DISPLAY AT(20,1):"SELECT---> _" :: ACCEPT AT(2 
@,12)VALIDATE("1234567")SIZE(-1)BEEP:SF 
DISPLAY AT(22,1):"WHAT IS THE WORD?" :: ACCEPT 
AT(23,1)BEEP:WORDS 

CALL CLEAR 

CALL SPGET (WORDS, WS ) 

LW=LEN (1W$ ) 

DISPLAY AT(4,1): "TRUNCATE HOW MANY?" :: ACCEPT 
AT(4,28)VALIDATE (NUMERIC )SIZE(-2)BEEP:TRUN 

IF TRUN>=LW-3 THEN 530 

TR=LW-TRUN-3 

NWS=SEGS (W$,1,2)&CHRS (TR) &SEGS$ (W$,4,TR) 

NEWWORDS=NWS &SUFS (SF) 

CALL SAY(,NEWWORDS ) 

DISPLAY AT(18,1):"NEW WORD OK? Y OR N _" :s: AC 
CEPT AT(18, 21)VALIDATE("YN" )SIZE(-1)BEEP:OK$ 
IF OK$="N" THEN 599 

CALL CLEAR 

DISPLAY AT(4,1):"WORD: ";WORDS 

DISPLAY AT(6,1): "TRUNCATE: ";TRUN 

DISPLAY AT(8,1):"SUFFIX: ";SUFFIX$(SF) 

DISPLAY AT(12,2):"PRESS ANY KEY TO CONTINUE" 
CALL KEY(3,K,S):: IF S=@ THEN 668 

GOTO 360 

CALL CLEAR 

DISPLAY AT(2,5):"MAKE A NEW WORD" 


DISPLAY AT(6,1):"FIRST WORD:" :: ACCEPT AT(6,1 
3) BEEF: FwW$ 

DISPLAY AT(8,1): "SECOND WORD:" :: ACCEPT AT(8, 
14)BEEP:Sw§$ 

CALL SPGET(FWS,WS):: CALL SPGET(SW$,W2$) 

CALL CLEAR 

LW=LEN (WS ) 

DISPLAY AT(4,1): "TRUNCATE HOW MANY BYTES" :: D 
ISPLAY AT(5,1):"FROM FIRST WCRD?" 

ACCEPT AT(6,1)VALIDATE(NUMERIC)SIZE(-2)BEEP:TR 
UN 
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778 
786 
796 
839 
819 
826 


839 
846 
856 
8608 
876 
886 
899 
98D 
919 
929 


936 
946 
958 
960 
976 
988 


996 


IF TRUN>LW-3 THEN 750 

TR=LW-TRUN-3 

NWS=SEGS (WS,1,2) &CHRS (TR) &SEGS (WS,4,TR) 
NEWWORDS=NWS &W2$ 

CALL SAY(,NEWWORDS ) 

DISPLAY AT(18,1):"NEW WORD OK? Y OR N _" :: AC 
CEPT AT(18,21)VALIDATE( "YN" )SIZE(-1)BEEP:OK$ 
IF OKS$="N" THEN 730 

CALL CLEAR 

DISPLAY AT(4,1):"1ST WORD: ";FWwS 

DISPLAY AT(6,1): "TRUNCATE: ";TRUN 

DISPLAY AT(8,1):"2ND WORD: ";SWwS 

DISPLAY AT(12,2):"PRESS ANY KEY TO CONTINUE" 
CALL KEY(3,K,S):: IF S=@ THEN 899 

GOTO 366 

REM ING SUFFIX 

DATA 96,0,52,174,38,65,21,186,90, 247,122,214,1 
79,95,77,13,262,50,153,120,117,57,48, 248 

DATA 133,173,209, 25,39,85,225,54,75,167,29,77, 
105,91,44,157,118,182 

DATA 169,97,161,117,218,25,119,184, 227,222,249 
,238,1 

REM S SUFFIX (CATS) 

DATA 96,0,26,14,56,138, 204,8,223,177,26,224,1@ 
3,85,3,252,106,196,128,95,44,4,249,35,11,2,126 
,16,121 

REM S SUFFIX (CADS) 

DATA 96,0,17,161,253,158, 217,168, 213,198,86,@, 
223,153,75,128,8,95,139,62 

REM S SUFFIX (WISHES) 


1908 DATA 96,6,34,173,233,33,84,12,242, 265,166,55, 


173,93,222,68,197,188,134, 238,123,102 


1918 DATA 163,86,27,59,1,124,183,46,1,2,124,45,138 


192Y 
1830 
104 
1856 
1860 


1876 
1686 


1696 


1196 


,129,7 

REM ED SUFFIX (PASSED) 

DATA 96,0,10,0,224,128,37, 204,37,249,0,0,@ 
REM ED SUFFIX (CAUSED) 

DATA 96,9,26,172,163,214,59, 35,109,178,174,68 
,21,22 

DATA 201,220,250,24,69,148,162,166, 234,75,84, 
97,145,264,15 

REM ED SUFFIX (HEATED) 

DATA 96,9,36,173,233,33,84,12, 242, 205,166,183 
,172,163,214,59,35,109,178,174,68, 21 

DATA 22,261,92,250,24,69,148, 162, 38,235,75,84 
,97,145, 204,178,127 

DATA "ING","S AS IN CATS","S AS IN CADS", "ES 
AS IN WISHES","ED AS IN PASSED", "ED AS IN CAU 
SED",ED AS IN HEATED" 
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The following example will help demonstrate how the 
information obtained from Word Maker can be used in other 
programs. Suppose you were writing a program which 
included routines for loading and saving cassette files. Speech 
could be added to let the computer tell the user when the cas- 
sette recorder is rewinding the tape. The TI’s resident vocabu- 
lary doesn’t include the word rewinding, but it does include 
the word rewind. The -ing suffix can be added by using the 
Word Maker program to find the truncation value that sourds 
best. Once determined, that value (in this case, 32), along with 
the ASCII codes for the desired suffix, can be used to create 
the word rewinding. The process is illustrated in Program 6-2. 


Program 6-2. Speech Demo 1 

168 FOR L=1 TO 55 

118 READ A :: INGS$=INGS&CHRS$(A) 

128 NEXT L 

138 CALL SPGET("REWIND",WS$S ) 

148 TR=LEN(W$ )-32-3 

150 NWS=SEGS (WS,1,2) &CHRS (TR) &SEGS (WS, 4, TR) 

168 NEWWORDS=NWS &INGS$ 

178 CALL SAY("I AM"“,NEWWORDS, "THE CASSETTE.") 

188 STOP 

199 DATA 96,8,52,174,30,65, 21,186,980, 247,122, 214,1 
79,95,77,13,2802,50,153,126,117,57,48,248 

288 DATA 133,173,289, 25,39,85,225,54,75,167,29,77, 
105,91,44,157,118,188 

219 DATA 169,97,161,117,218,25,119,184, 227,222,249 
,238,1 


Taking this one step further, suppose you wanted the 
computer to remind the user to remove the cassette once that 
job was complete. The word remove is not in the resident 
vocabulary. However, the re portion of the word read can be 
concatenated with the word move to produce remove. 

Word Maker would determine the truncation value (in 
this case, 50) needed to produce the re sound and use it to cre- 
ate the word remove in another program. This is illustrated in 
Program 6-3. 


Program 6-3. Speech Demo 2 


188 CALL SPGET("READ",WS ) 
118 CALL SPGET("MOVE",W2$) 
128 TR=LEN(wS$ )-58-3 
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130 NWS=SEGS$(WS,1,2) &CHRS$ (TR) &SEGS (WS, 4, TR) 

146 NEWWORDS=NWS &W2$ 

15@ CALL SAY("NOW, YOU SHOULD",NEWWORDS, "THE CASSE 
TTE") 

168 STOP 


The Text-to-Speech Diskette 

Texas Instruments’ text-to-speech diskette is specifically 
designed to work with the Extended BASIC command module. 
It lets the computer speak almost any word in the English lan- 
guage and, unlike the Terminal Emulator II command module, 
enables this speech capability to be combined with the addi- 
tional programming features of Extended BASIC. Obviously, a 
disk system (including a memory expansion unit, disk drive 
controller, and disk memory drive) is required. 

To understand how this software works, it is helpful to 
know what phonemes and allophones are. A phoneme is the 
smallest unit of speech by which a difference in meaning can 
be perceived. For instance, the phonemes 0 and c distinguish 
the words bat and cat. 

The same phoneme can represent slightly different 
sounds, depending on its position within a word and the let- 
ters that surround it. For instance, the a in addition has a 
slightly different sound than the a in delta. These different 
sounding forms of the same phoneme are called allophones. 

Table 6-2 identifies the allophones used by the text-to- 
speech software, along with their numeric codes. The sound 
associated with each allophone is indicated by the way in 
which that allophone is used in a word. 

The text-to-speech software uses a specific set of speech 
rules to translate strings of text into strings of allophones. 
Those allophone strings are then converted to Linear Predic- 
tive Coding (LPC) strings and processed by the speech syn- 
thesizer to produce speech. A diagram illustrating this process 
is shown in Figure 6-1. 
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Table 6-2. Allophones 


Allophone 
Number 


WONA OP WN = 


Sound 


addition 
annuity 
delta 

on time 
autonomy 
anonymity 
eliminate 
enough 
context 
ancient 
western 
synthesis 
inane 
took on 
donation 
annual 
unique 
above 
instrument 
underneath 
roses 
basement 
seeker 
ratio 
funny 

hat 

hot 
height 
cart 

house 
sought 
heat 
pierce 

set 
therapy 
take 

hurt 


Allophone 
Number 


Sound 


issue 
choice 
cook 
poorly 
horse 
boat 
shoot 
hut 
boot 
had 
odd 
hide 
card 
loud 
saw 
seed 
heel 
hear 
said 
there 
day 
heard 
hid 
hill 
think 
boy 
could 
poor 
core 
low 
shoe 
mud 
skull 
pull 
moon 
like 
bowl 
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Allophone 
Number 
75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 


Sound 
awful, well 
may 
hum 
nice 
sane 
think 
thing 
real 
witch 
which 
you 
bad 


clothe 
vine 
alive 
ZOO 
does 
azure 


Allophone 
Number 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


Sound 
beige 
skate 
case 
make 
key 
cough 
space 
pie 
nap 
stake 
tie 
late 
church 
fat 
laugh 
hit 
home 
hut 
seem 
miss 
shine 
wash 
thing 
with 


short pause 
long pause 
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Figure 6-1. Text-to-Speech Diagram 
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The translation process is accomplished by three machine 
language routines—SETUP, XLAT, and SPEAK—which are 
accessed by Extended BASIC as subprograms. Before Extended 
BASIC can access these routines, however, the memory expan- 
sion unit must be initialized, and the three routines must be 
loaded into memory. In an Extended BASIC program, you can 
do it with the following lines; the text-to-speech diskette 
should be in Disk Drive 1. 


100 CALL INIT 
110 CALL LOAD(“DSK1.SETUP”,”DSK1.XLAT”, 
DSK1.SPEAK’’) 


The CALL INIT subprogram prepares the computer to run 
machine language programs by making sure that the memory 
expansion unit is connected, removing any previously loaded 
subprograms from memory, and loading a set of supporting 
routines into memory. The CALL LOAD subprogram loads the 
machine language object files for the three routines. 

Once loaded, the three routines can be accessed by 
Extended BASIC using the CALL LINK subprogram. CALL 
LINK passes control to a machine language subprogram. 

The following CALL LINK statement causes the execution 
of the machine language routine SETUP. 


120 CALL LINK(“SETUP”,”DSK1.DATABASE”) 
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SETUP loads the speech data base from the text-to-speech 
diskette into memory. This routine needs to be executed only 
once in a program; the speech data base will remain in mem- 
ory until the memory expansion unit is turned off. 

At that point the text-to-speech system is ready to convert 
text into speech. The XLAT routine is used to translate text 
strings into allophone strings, using a CALL LINK statement 
having the following format: 


CALL LINK(“XLAT”,text string,allophone string) 


Text string may be a string constant, string variable, or 
string expression, and represents the text string to be trans- 
lated. If a string constant is used, it must be enclosed in quota- 
tion marks. Text string is limited to 128 characters; if this limit 
is exceeded, the error message STRING TRUNCATED is re- 
turned. XLAT returns the string of allophones corresponding 
to text string and stores it in allophone string, which must be a 
string variable. If the allophone string returned exceeds 255 
characters, the error SPEECH STRING TOO LONG is 
returned. 

Once the text string has been translated into an allophone 
string, the SPEAK routine is used to translate the allophone 
string into an LPC string and then into speech. The CALL 
LINK statement used to execute the “SPEAK” routine has the 
following format: 


CALL LINK(‘SPEAK”allophone string,pitch,slope) 


Allophone string may be a string variable or string 
expression and represents the allophone string to be translated 
into speech. Pitch is an integer in the range 0-63 and may be 
a numeric literal, numeric variable, or numeric expression. 
Slope is an integer in the range 0-255 and may be a numeric 
literal, numeric variable, or numeric expression. The normal 
values for the pitch and slope parameters are 43 and 128, 
respectively. 

The pitch value determines the highness or lowness of the 
spoken sounds. A value of 1 produces the highest voice, while 
a value of 63 yields the lowest voice. If the value is 0, the 
resulting voice is much like a whisper. The frequency asso- 
ciated with each pitch value is given in Table 6-3. 


165 


Speech Synthesis sua 


Table 6-3. Pitch Frequencies 


Pitch Freq. Pitch Freq. 
(Hz) (Hz) 
1 571.4 33 133.3 
2 533.3 34 129.0 
3 500.4 35 125.0 
4 470.5 36 117.6 
5 444.4 37 111.1 
6 421.1 38 108.1 
7 400.0 39 105.2 
8 380.9 40 98.7 
9 363.6 41 94.1 
10 347.8 42 91.9 
11 333.3 43 88.8 
12 320.0 44 83.3 
13 307.7 45 80.8 
14 296.2 46 77.6 
15 285.7 47 74.7 
16 275.8 48 71.4 
17 266.6 49 68.3 
18 258.1 50 65.5 
19 250.0 51 62.9 
20 235.2 52 60.1 
21 222.2 53 57.5 
22 210.5 54 55.1 
23 200.0 95 O20 
24 195.1 56 50.9 
25 186.0 57 48.7 
26 177.7 58 46.7 
27 166.6 59 44.9 
28 163.2 60 43.0 
29 156.8 61 41.2 
30 148.1 62 39.6 
31 145.4 63 37.9 
32 140.3 


The slope value determines the rate at which the pitch 
changes within a spoken phrase. Best results are obtained 
when the slope is approximately 3.2 times the pitch. For 
example, if 40 is used for the pitch, the best value for the 
slope would be 3.2*40, or 128. To prevent garbled speech, the 
slope should conform to the following limits: 
slope < (pitch-1) * 16 
slope < (63-pitch) * 16 
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The following program demonstrates how the text-to- 
speech software can be used by an Extended BASIC program 
to produce speech. It allows the user to enter any word or 
phrase (line 180), translates the word or phrase into an allo- 
phone string (line 200), and translates the allophone string 
into speech (line 210). In many cases, the words entered must 
be misspelled in order to produce the proper pronunciation. 

In addition to words and phrases, sound effects can be 
created by entering various combinations of letters. Try the 
following combinations to get an idea of the sound effects that 
can be produced: TSTSTS, CKCKCK, YYYYY, ZDZDZD, 
HAAALLP, and TKTKTK. 


Program 6-4. Talker 

18@ CALL CLEAR 

110 DISPLAY AT(6,10):"T A L K E R" 

128 DISPLAY AT(14,1@):"STAND BY..." 

138 CALL INIT 

148 CALL LOAD("DSK1.SPEAK", "DSK1.XLAT", "DSK1.SETUP 


158 CALL LINK("SETUP", "DSK1 .DATABASE" ) 

168 CALL CLEAR 

170 DISPLAY AT(4,1): "ENTER PHRASE TO BE SPOKEN:" 
180 LINPUT " ":PHRS 

190 IF PHRS="" THEN 216 

2600 CALL LINK("XLAT",PHR$,ALLS ) 

218 CALL LINK("SPEAK",ALLS$, 43,128) 

220 GOTO 168 


In addition to translating alphabetic text, the text-to- 
speech routines also translate certain special characters. These 
special characters fall into four categories: numerical charac- 
ters, pause-and-break characters, inflection symbols, and spe- 
cial symbols. The numerical characters consist of the digits 0 
through 9 as well as the comma, decimal point, minus, and 
plus signs. When translated by the text-to-speech routines, the 
digits 0 through 9 will always be spoken. However, the other 
symbols in this category will be spoken only if they immedi- 
ately precede a numerical digit. 

The pause-and-break characters consist of the comma, 
period, exclamation point, question mark, colon, and semi- 
colon, The XLAT routine translates the comma into allophone 
number 126, which when translated by the SPEAK routine, 
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yields a short pause (50 milliseconds). The other pause-and- 
break characters are translated into allophone number 127 and 
produce a long pause (225 milliseconds). When used as pause- 
and-break characters, the comma and period must be followed 
by a space unless they appear as the last character in a text 
string. As will be seen, the pause-and-break characters also 
affect the inflection contour of a phrase or sentence which 
contains a primary stress symbol (one of the inflection 
symbols). 

The inflection symbols consist of the primary stress sym- 
bol and the secondary stress symbol . The primary stress 
symbol indicates that primary emphasis should be given to the 
word it precedes. Only one primary stress symbol may be 
used in a phrase or sentence. If this primary stress is used in a 
phrase or sentence that ends with a comma or question mark, 
the phrase or sentence will be characterized by a progressive 
increase in pitch, starting at the primary stress symbol and 
ending at the comma or question mark. If the primary stress 
symbol is used in a phrase or sentence ended by any of the 
other pause-and-break characters, the phrase or sentence is 
characterized by a progressive decrease in pitch, starting at the 
primary stress symbol and ending at the pause-and-break 
character. When used in Program 6-4, “Talker,” the following 
text strings will demonstrate the inflection contours (rising and 
falling) which can characterize a phrase or sentence. 


“WHO ARE YOU?” 
“WHO ARE YOU.” 


The primary stress symbol also indicates which syllable 
should be accented. If used alone, it indicates that the first syl- 
lable of the word is to be given primary emphasis. Used in 
conjunction with the shift indicator, it indicates that primary 
emphasis should be shifted to one of the other syllables in the 
word, the number of shift indicator symbols used determines 
which syllable. For example, allophone indicates that primary 
emphasis is to be given to the third syllable of the word 
allophone. 

The secondary stress symbol indicates that secondary 
emphasis is to be given to the word it precedes. It causes the 
word it precedes to be spoken at a higher pitch. More than 
one secondary stress symbol may be used in a phrase or sen- 
tence, and each one encountered causes a progressive decline 
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in pitch (although all words preceded by a secondary stress 
symbol are spoken at a higher pitch than unstressed words). If 
a phrase or sentence contains secondary stress symbols, it 
should also contain a primary stress symbol; otherwise, the 
unstressed words will have a flat sound. The secondary stress 
symbol may also be used in conjunction with the shift 
indicator to shift secondary emphasis to other syllables in the 
word it precedes. 

The special symbols category includes the symbols @, $, 
%, &, *, (, ), =, and /. When translated by the text-to-speech 
routines, these symbols are spoken as the words at, dollar, per- 
cent, and, asterisk, open, close, equals, and slash. The translation 
of special symbols and numerical characters is simply a matter 
of stringing together the allophones which make up the words 
corresponding to these characters. For example, the symbol @ 
is translated into the allophones corresponding to the word at. 

Since pause-and-break characters and inflection symbols 
do not correspond to spoken words, they must be handled dif- 
ferently. They are translated with a number of inflection 
codes, which are listed in Table 6-4. 


The following program will help demonstrate how text 
strings are translated into allophone strings. First, it allows the 
user to enter a text string. Then, after speaking the entered 
text, it lists the allophone numbers and inflection codes used 
to produce the corresponding speech. 


Program 6-5. Allophone Number Lister 


108 CALL CLEAR 

118 DISPLAY AT(6,3):"“ALLOPHONE NUMBER LISTER" 

126 DISPLAY AT(14,10):"STAND BY..." 

138 CALL INIT 

148 CALL LOAD("DSK1.SETUP", "DSK]1.XLAT", "DSK1.SPEAK 


158 CALL LINK("SETUP", "DSK1.DATABASE" ) 
168 CALL CLEAR 

176 DISPLAY AT(4,1): "ENTER PHRASE: " 
186 LINPUT " ":PHRS 

199 IF PHRS="" THEN 218 

208 CALL LINK("XLAT",PHRS, ALLS ) 

219 CALL LINK("SPEAK",ALLS, 43,128) 
228 L=LEN(ALLS ) 

236 FOR X=l1 TO L 

248 PRINT ASC(SEGS$(ALLS,X,1)) 

250 NEXT X 
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Table 6-4. Inflection Codes 
Code Number 


249 


250 


251 


252 


253 


254 


255 


170 


Indicates a secondary stress symbol. In an allophone 
string, this code is placed before the first vowel allo- 
phone in the syllable which the stress symbol 
precedes. 


Indicates a break in the text. It is placed at the begin- 
ning of an allophone string, as well as wherever a 
pause-and-break character appears. This code must be 
followed by two parameters. If a primary stress symbol 
is used in the text, the two parameters indicate the 
number of secondary stress symbols before and after 
the primary stress symbol. If the primary stress symbol 
is used in conjunction with a comma or question mark, 
the second parameter indicates the number of syllables 
after the primary stress symbol. The first parameter 
may optionally be given a value of either 254 or 255. 
A value of 254 indicates that the entire phrase which 
follows should have a rising contour; a value of 255 
indicates that the entire phrase which follows should 
have a falling contour. When either of these values is 
used as the first parameter, the second parameter 
specifies the total number of syllables in the indicated 
phrase. 


Indicates a new default slope value. It must be fol- 
lowed by one parameter indicating the new slope 
value to be used. 


Indicates a new default pitch value. It must be fol- 
lowed by one parameter indicating the new pitch value 
to be used. 


Indicates a primary stress symbol in a phrase charac- 
terized by a rising contour. In an allophone string, this 
code is placed before the first vowel allophone in the 
syllable which the stress symbol emphasizes. 


Indicates a primary stress symbol in a phrase charac- 
terized by a falling contour. In an allophone string, this 
code is placed before the first vowel allophone in the 
syllable which the stress symbol emphasizes. 


Indicates a temporary pitch level and modification for 
the allophone immediately following it. It must be fol- 
lowed by one parameter indicating the pitch value to 
be used. 
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Once you understand how to translate phrases and sen- 
tences, you can customize speech by stringing together the 
character equivalents of allophone numbers and inflection 
codes. The CHR$ function is used to obtain the character 
equivalents; those characters are then concatenated together to 
form the allophone string used by the SPEAK routine. Here is 
how it can be done. 


1896 CALL INIT 
118 CALL LOAD("DSK1.SETUP", "DSK1.XLAT", "DSK1 .SPEAK 


128 CALL LINK( "SETUP", "DSK1 .DATABASE" ) 

138 WS=CHRS (252) &CHRS (38) &CHRS (53) &CHRS (49) &CHRS (2 
52) &CHRS (33) &CHRS (53) &CHRS (49) &CHRS (252) &CHRS ( 
36) &CHRS (67) 

149 CALL LINK("SPEAK",WS,43,128) 


The following program actually lets you create custom 
speech. First, enter the number of syllables in the word or 
phrase to be created (line 170). Then, following the program 
prompts, enter the first allophone number or inflection code 
(line 210). The prompt will repeat until the number 300 is 
entered, indicating the final allophone number or inflection 
code. The resulting allophone string is then used by the 
SPEAK routine (line 260) to produce the corresponding 
speech. 


Program 6-6. Allophone Stringer 


188 CALL CLEAR 

11@ DISPLAY AT(6,5):"“ALLOPHONE STRINGER" 

126 DISPLAY AT(14,1@):"STAND BY..." 

136 CALL INIT 

149 CALL LOAD("DSK1.SETUP", "DSK1.XLAT", "DSK1.SPEAK 


158 CALL LINK("SETUP", "DSK1.DATABASE" ) 

168 CALL CLEAR 

179 DISPLAY AT(4,1): "ENTER NUMBER OF SYLLABLES" :: 
DISPLAY AT(6,1):"IN WORD:" 

188 ACCEPT AT(6,1@)VALIDATE (NUMERIC) BEEP:N 

198 WS=CHRS (25@) &CHRS (255) &CHRS (N) 

208 CALL CLEAR 

21@ DISPLAY AT(18,1):"ENTER ALLOPHONE NUMBER" :: D 
ISPLAY AT(12,1):"OR 380 TO QUIT:" 
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226 ACCEPT AT(12,17)VALIDATE(NUMERIC)BEEP:A 
230 IF A=300 THEN 269 

248 WS=WS &CHRS (A) 

258 GOTO 260 

266 CALL LINK("SPEAK",W$,43,128) 

278 GOTO 168 
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raphics and sound are two of the most exciting fea- 

tures of home computers. Add them together, per- 

haps with a little speech synthesis thrown in, and 

you have programs with a great deal to offer. This 
chapter contains seven such programs. A complete explanation 
is included for each. 


Mimic 

This program illustrates that even modest use of graphics and 
sound can produce an enjoyable program. Its graphics consist 
of one horizontal bar, one vertical bar, and four solid-colored 
stationary sprites; its sound is limited to four distinct tones. 

“Mimic” first puts a cross in the middle of the screen. A 
sequence of colored squares momentarily appears in the four 
quadrants, and with each color a single-frequency tone 
sounds. Its frequency depends on which quadrant contains the 
square. The object of the game is to repeat the sequence in 
which the squares appeared by pressing the appropriate num- 
ber keys (1-4). 

As many as six people can play at one time. On a player's 
first turn, only one square appears. Two squares appear on the 
second turn, and a new square is added after each correct 
response. An incorrect response ends the game. 


How Mimic Works 
Line(s) 
100 Seed the random number generator. 


110-140 Define the patterns used by the program. ASCII code 
91 defines the character used to draw the cross; code 
96 is used to define the solid-colored sprites. The 
sprites may be one of four colors, depending on the 
quadrant in which they appear. Line 130 predefines 
the four colors. Line 140 clears the screen and sets it to 
light red. 


150-170 Display the introduction banner, leave it on the screen 
for a few seconds, and then clear the screen. 
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180-250 


260-280 
290-350 


360 


370-420 


430-490 


500 


510-590 


600 


176 


Determine the number of players, get each player’s 
name, and set the difficulty level. The difficulty level is 
used to determine how long each square will be dis- 
played on the screen. 


Clear the screen and draw the cross. 


Define the four sprites and display them in their 
appropriate quadrant on the screen until the players 
indicate they are ready to begin. 


Set the color of all sprites (squares) to transparent (1). 
The sprites remain on the screen, but are invisible. 


Initialize the work areas for the game. SEQ$ contains 
the square sequence for a particular player. It is ini- 
tially set to null. PLAYEROUT is a switch that tells the 
program if a particular player is still in the game. 
NUMOUT tells the program how many players are out 
of the game. When NUMOUT equals the number of 
players (PLAYERS), the game is over. 


Begin the main game loop. Line 440 bypasses players 
that are out. Line 450 displays the current player's 
name, and lines 460-490 wait for him to indicate that 
he is ready for his turn. 


Add a new square to a player’s sequence. The new 
square is a random number between one and four. The 
string equivalent of the number is concatenated to the 
end of the player’s previous square sequence (SEQ$). 


Display the sequence of squares, one at a time, on the 
screen. Line 510 goes through a loop the number of 
times indicated by the length of SEQ$, which is 
equivalent to the number of squares. Line 520 deter- 
mines the numeric value of each square stored in 
string format in SEQ$. Lines 530-540 set on the color 
of the appropriate square, which makes it appear on 
the screen. Line 550 sounds the appropriate tone for 
that square. The duration is determined by the diffi- 
culty level. Line 560 invokes a time delay loop, also 
controlled by the difficulty level. This loop controls 
how long the square appears on the screen. Line 570 
sets the square’s color back to transparent, which effec- 
tively removes it from the screen. 


Instructs the player to repeat the sequence of squares 
just presented. 
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610-860 Determine if the player responded with the correct 


sequence. Line 610 sets up the loop as determined by 
tne number of squares. Lines 610-630 wait for a 
response from the player. Line 640 converts the ASCII 
code of the pressed key into its numeric value. Lines 
650-690 turn on color for the square indicated by the 
player and sound the appropriate tone. Line 700 deter- 
mines the actual square in the sequence. If it matches 
the key pressed by the player, line 710 branches to the 
end of the loop for that square. Otherwise, the key 
pressed by the player was incorrect. In this case, line 
720 displays a message indicating an _ incorrect 
answer. Line 730 sounds a tone; lines 750-820 display 
the correct square on the screen; line 830 sets the 
switch indicating the player is out; and line 840 
increments the number-of-players-out counter. 


900-980 Display the tally for all players at the end of the game. 


The player with the highest tally is the winner. 


Program 7-1. Mimic 


196 
119 


126 
139 


149 
158 
169 
170 
189 
198 


286 
216 
220 
2390 
248 
258 


260 
270 
286 
298 


RANDOMIZE 

CALL CHAR(96, "PFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF" ) 

CALL CHAR(91, "FFFFFFFFFFFFFFFF") 

a :: COLR(2)=3 :: COLR(3)=14 :: COLR(4 
=16 

CALL CLEAR :: CALL SCREEN(19) 

DISPLAY AT(8,1@):"M I MI Cc" 

FOR LOOP=1 TO 2008 :: NEXT LOOP 

CALL CLEAR 

DISPLAY AT(4,1):"NUMBER OF PLAYERS (1-6) _" 

ACCEPT AT(4,25)VALIDATE("123456")SIZE(-1)BEEP: 
PLAYERS 

FOR LOOP=1 TO PLAYERS 

DISPLAY AT(6+(LOOP*2),1):"NAME OF PLAYER"; LOOP 

ACCEPT AT(6+(LOOP*2),18)BEEP:NAMES (LOOP ) 

NEXT LOOP 

DISPLAY AT(22,1):"DIFFICULTY LEVEL (1-3)? _" 

ACCEPT AT(22,25)VALIDATE("123")SIZE(-1)BEEP:LE 

VEL 

CALL CLEAR :: CALL SCREEN(8) 

CALL HCHAR(12,10,91,13) 

CALL VCHAR(6,16,91,13) 

CALL MAGNIFY (4) 
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306 


319 
320 


3390 


CALL SPRITE(#1,96,9,47,78,#2,96,3,47,138, #3, 96 
,14,107,78,#4,96,16,107,138) 

DISPLAY AT(9,10):"l"::: DISPLAY AT(9,15):"2"; 
DISPLAY AT(15,10):"3";:: DISPLAY AT(15,18):"4" 


H 
DISPLAY AT(22,1):"** PRESS ANY KEY TO BEGIN ** 
oe 


CALL KEY (3,KEY,STATUS) 

IF STATUS=8 THEN 346 

CALL COLOR(#1,1,#2,1,#3,1,#4,1) 

FOR LOOP=1 TO PLAYERS 

PLAYEROUT (LOOP )= 

SEQ$ (LOOP )="" 

NEXT LOOP 

NUMOUT=6 

IF NUMOUT=PLAYERS THEN 896 

FOR LOOP=1 TO PLAYERS 

IF PLAYEROUT(LOOP)=1 THEN 87969 
DISPLAY AT(3,9):NAME$(LOOP);"'S TURN" 
DISPLAY AT(22,1):"---> PRESS ENTER WHEN READY" 
CALL KEY(3,KEY,STATUS) 


) IF STATUS=0 THEN 476 


DISPLAY AT(22,1):" " 


SEQS (LOOP )=SEQ$ (LOOP ) &S TRS (1+INT(RND*4) ) 
FOR SEQ=1 TO LEN(SEQS(LOOP) ) 

=VAL (SEG$ (SEQ$ (LOOP), SEQ,1)) 

CL=COLR(A) 

CALL COLOR(#A,CL) 

CALL SOUND(48@*(4-LEVEL) , 300*A,@) 

FOR DELAY=1 TO 100*(4-LEVEL):: NEXT DELAY 
CALL COLOR(#A,1) 

FOR DELAY=1 TO 20 :: NEXT DELAY 

NEXT SEQ 

DISPLAY AT(22,1):"** NOW REPEAT THE SEQUENCE" 
FOR SEQ=l1 TO LEN(SEQS$ (LOOP) ) 

CALL KEY(3,KEY,STATUS) 

IF STATUS=@ OR KEY<49 OR KEY>52 THEN 620 
B=VAL (CHRS (KEY) ) 

CL=COLR(B) 

CALL COLOR(#B,CL) 

CALL SOUND (48@*(4-LEVEL) , 308*B,@) 

FOR DELAY=1 TO 100*(4-LEVEL):: NEXT DELAY 
CALL COLOR(#B,1) 
A=VAL(SEGS$ (SEQ$ (LOOP ),SEQ,1)) 

IF A=B THEN 869 

DISPLAY AT(22,2):"******* WR ON G ¥¥*kKRKN 


CALL SOUND(1990,158,98,300,92) 
FOR DELAY=1 TO 580 :: NEXT DELAY 
CL=COLR(A) 
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768 FOR LOOP2=1 TO 10 

77@ CALL COLOR(#A,CL) 

788 CALL SOUND(40@,300*A,9) 

799 FOR DELAY=1 TO 10@ :: NEXT DELAY 

860 CALL COLOR(#A,1) 

818 FOR DELAY=1 TO 38 :: NEXT DELAY 

828 NEXT LOOP2 

838 PLAYEROUT (LOOP )=1 

848 NUMOUT=NUMOUT+1 

858 SEQ=9999 

&6@ NEXT SEQ 

876 NEXT LOOP 

888 GOTO 420 

896 CALL CLEAR 

986 DISPLAY AT(4,1): "PLAYER" :: DISPLAY AT(4,21):" 
TURNS" 

918 FOR LOOP=1 TO PLAYERS 

92G DISPLAY AT(6+(2*LOOP),1):NAMES (LOOP ) 

930 DISPLAY AT(6+(2*LOOP),20):USING "#####":LEN(SE 
Q$ (LOOP) )-1 

949 NEXT LOOP 

956 DISPLAY AT(22,1):"PLAY AGAIN (Y/N)? _" 


96@ ACCEPT AT(22,19)VALIPATE( "YN" )SIZE(-1)BEEP:ANS 
$ 


976 IF ANSS="Y" THEN 260 
988 CALL CLEAR :: STOP 


Shooting Gallery 
This program shows how moving sprites can be combined 
with sound to create a shooting gallery, complete with ducks, 
smiling faces, and diamonds for targets. Players use joysticks to 
control a crosshair sight, and the object is to position the sight 
over the targets and shoot them by pressing the fire button. 
This game is designed for as many as four players. Each 
player has 15 shots, and there are a total of 13 targets. In 
addition, every turn must be completed within a specified 
time. If a player hits all 13 targets within the allotted time 
period, bonus points are awarded for each second that 
remains. 


How Shooting Gallery Works 

Line(s) 

100 Seed the random number generator. 

110 DIMension the array variables used by the program. 
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120-140 


150-220 


230 


240-290 
300-360 


370-400 
410-440 


450-500 


510-680 
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Set the point score for each of the three types of 
targets. 


Define the character patterns used by the program. 
ASCII code 96 defines the ducks. ASCII code 97 
defines the crosshair sight. ASCII code 100 defines the 
smiling faces. ASCII codes 98 and 102 define the 
diamonds, and ASCII code 101 defines the bars that 
separate the targets. Line 160 invokes the routine that 
displays the introduction banner. 


Invoke the routines to display the instructions and 
determine the number of players and difficulty level. 


Draw the shooting gallery background and tote board. 


Define the sprites used in the program and set the tar- 
gets in motion. The speed is determined by the diffi- 
culty level chosen. 


Prompt the current player to get ready to start. 


Set the initial values for the start of a player's turn. 
Each player has 15 shots (SH) and 30 seconds (TIME). 
TG is the counter for the number of targets hit. TI is 
the timer mechanism. 


Main control loop. Line 450 checks for player response 
from the joystick and moves the crosshair accordingly. 
If the fire button was pressed, the shooting sound is 
made and program control is passed to line 510. Line 
460 increments and displays the time. Line 480 dec- 
rements the shot counter and checks to see if all 15 
shots have been taken or all targets hit. 


Determine if a target was hit. Since there are 13 sepa- 
rate targets, checking all 13 sprites for coincidence 
would require coding 13 CALL COINC statements in a 
row. It was pointed out in Chapter 4 that this would 
probably cause the last five or six CALL COINC state- 
ments to miss a coincidence because of the slow speed 
of BASIC. Instead, line 510 determines the position of 
the crosshair sight. Then, using the row position of the 
sight, it determines which group of targets it could be 
over. The ducks are at the top of the screen. The smil- 
ing faces are in the center, and two groups of 
diamonds are at the bottom. The IF statement in line 
510 branches to that particular group to check for 
coincidence. Lines 520-550 check the ducks; lines 560- 
600 check the smiling faces; lines 610-640 check the 
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first group of diamonds; and lines 650-680 check the 
second group of diamonds. 


690-710 End of player's turn. 
720-810 End of game. 
820-880 Award bonus points when all targets hit and time 


remains on clock. 


890-970 Routine to indicate a hit. Lines 890-910 turn the tar- 


get’s color to red and then delete it. Lines 920-960 
update the player’s score. 


980-1060 Introduction banner. 
1070-1210 Instructions. 
1220-1280 Determine number of players and difficulty level. 


Program 7-2. Shooting Gallery 


106 
116 
126 
13 


RANDOMIZE 

DIM TOT(4),Sc(14) 

FOR L=2 TO 5 :: SC(L)=15 :: NEXT L 

FOR L=6 TO 8 :: SC(L)=19 :: NEXT L 

FOR L=9 TO 14 :: SC(L)=25 :: NEXT L 

CALL CHAR(98, "@81C3E7F7F3E1C88") 

GOSUB 980 

CALL CHAR(96, "O@BG3921E3E7EGGBO") 

CALL CHAR(97, "@G2G26F82029G0G0 " ) 

CALL CHAR(162,"19387CFEFE7C3816") 

CALL CHAR(99, "FFFFFFFFFFFFFFFF ") 

ae Sa a Ma a ees CALL COLOR 
9,7,1 

CALL CHAR(190, "FCB4FCCCFCB4CCFC" ) 

GOSUB 1878 :: GOSUB 1220 

CALL CLEAR :: CALL HCHAR(4,1,99,32):: CALL HCH 

AR(22,1,99, 32) 

PL=1 

sag HCHAR(9,1,1@1,32):: CALL HCHAR(15,1,101,3 
2 


DISPLAY AT(1,1): "PLAYER 1: PLAYER 3: " 
DISPLAY AT(3,1):"PLAYER 2: PLAYER 4: s 
p=l os ae 


CALL MAGNIFY (2) 

CALL SPRITE(#2,96,12,40,20,8,S1,#3,96,12,54,85 
,@,81,#4,96,12,48,158,8,51,#5, 96,12,54,215,0, 

Sl) 

CALL SPRITE(#6,108,14,85,30,0,-S2,#7,100,14,85 
,110,0,-S2,#8,109,14,85,190,9,-S2) 
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CALL SPRITE(#9,98,5,1380,39,9,S3,#19,98,5,130,1 
10,8,S3,#11,98,5, 130, 196, g 83) 

CALL SPRITE(#12, 182 as 155, 30, @,-S3,#13,102,5,1 
55,118,0,-S3,#14, 162, 5, iS: 199 a) -83) 

CALL SPRITE (#1, 97, 2, 99" 120) 

DISPLAY AT(23, 1): " 

FOR L=l TO 190 

DISPLAY AT(23,11):"PLAYER";PL :: CALL SOUND(3@ 
,620,4):: FOR L2=l TO 20 :: NEXT L2 

DISPLAY AT(23,11):"{12 SPACES}" :: FOR L2=1 TO 
15 :: NEXT L2 

NEXT L 

SH=15 :: TG=@ 

DISPLAY AT(24,1):"SHOTS LEFT:" :: CALL HCHAR(2 

4,16,43,SH) 

DISPLAY AT(23,1):"TIME:" 

TI=6 :: TIME=32 

CALL JOYST(1,X,Y¥):: CALL MOTION(#1,-Y*2,X*2):: 
CALL KEY(1,K,S):: IF S<>@ THEN CALL SOUND(6Q, 
-6,8):: GOTO 510 


TL=TI+1 2: TIME=30~-INT(TI/5):: DISPLAY AT(23,7 
):TIME :: IF TIMF=0 THEN 699 
GOTO 452 


SH=SH-1 :: IF SH=@ OR TG=13 THEN 699 

DISPLAY AT(24,1): "SHOTS LEFT:" :: CALL HCHAR(2 
4,16,43,SH) 

GOTO 452 

CALL POSITION(#1,DR,DC):: IF DR<78 THEN 568 EL 
SE IF DR>14@ THEN 650 ELSE IF DR>118 THEN 619 

CALL COINC(#1,#6,7,C):: IF C=-l THEN SP=6 :: G 
OTO 892 

CALL COINC(#1,#7,7,C):: IF C=-l THEN SP=7 :: G 
OTO 899 

CALL COINC(#1,#8,7,C):: IF C=-l THEN SP=8 :: G 
OTO 898 

GOTO 486 


CALL COINC( #1, #2,7,C):: IF C=-l THEN SP=2 :: G 
OTO 899 
CALL COINC(#1,#3,7,C):: IF C=-1l THEN SP=3 :: G 
OTO 896 
CALL COINC(#1,#4,7,C):: IF C=-l THEN SP=4 :: 6G 
OTO 896 

G 


CALL COINC(#1,#5,7,C):: IF C=-l THEN SP=5 :: 

OTO 899 

GOTO 480 

CALL COINC(#1,#9,TL,C):: IF C=-l THEN SP=9 :: 

GOTO 896 

CALL COINC(#1,#18,TL+1,C):: IF C=-l THEN SP=10 
:: GOTO 8904 


ee 
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CALL COINC(#1,#11,TLt1,C):: IF C=-1 THEN SP=l1l 
:: GOTO 890 

GOTO 4890 

CALL COINC(#1,#12,TLt+1,C):: IF C=-1 THEN SP=12 
:: GOTO 896 

CALL COINC(#1,#13,TLt2,C):: IF C=-l THEN SP=13 
:: GOTO 89¥ 

CALL COINC(#1,#14,TL+2,C):: IF C=-l THEN SP=14 


:: GOTO 899 
GOTO 4808 
DISPLAY AT(24,1):"{5 SPACES]GAME OVER PLAYER"; 
PL :: CALL SOUND(900,800,5):: FOR L=l TO 80@ : 
: NEXT L :: DISPLAY AT(24,1):" “ 
IF TG=13 AND TIME>® THEN GOSUB 829 
IF PL<NP THEN PL=PLtl :: GOTO 290 
FOR L=l1 TO 4 
DISPLAY AT(24,1):" " :: CALL SOUND(40,480,4) 
FOR L2=l1 TO 26 :: NEXT L2 


DISPLAY AT(24,7):"PLAY AGAIN Y/N?" 
FOR L2=1 TO 15 :: NEXT L2 

NEXT L 

CALL KEY(3,K,S):: IF S=@ THEN 786 
IF K=78 THEN CALL CLEAR :: STOP 


IF K=89 THEN TOT(1)=0 :: TOT(2)=@0 :: TOT(3)=0 
2: TOT(4)=@ :: CALL DELSPRITE(ALL):: GOSUB 122 
6 :: GOTO 246 

GOTO 728 


CALL SOUND(706,200,5,908,5) 
DISPLAY AT(24,1):"*** BONUS POINTS AWARDED *** 


FOR L=l TO 800 :: NEXT L 

TOT (PL)=TOT(PL)+(15*TIME) 
DISPLAY AT(ROW,COL):TOT(PL); 
DISPLAY AT(24,1):" " 

RETURN 

CALL SOUND(59,408,8) 

CALL COLOR(#SP,9):: FOR L=1 TO 5 
CALL NELSPRITE(#SP) 

TG=TG+1 

TOT (PL)=TOT(PL)+SC(SP) 

IF PL/2=INT(PL/2)THEN ROW=3 ELSE ROW=1 
IF PL=l OR PL=2 THEN COL=10 ELSE COL=25 
DISPLAY AT(ROW,COL):TOT(PL); 


NEXT L 


GOTO 480 
CALL CLEAR :: CALL SCREEN(10) 
DISPLAY AT(5,13):"T I" 2: DISPLAY AT(8,7):" 


SH 
OOT ING" :: DISPLAY AT(11,8):"G ALLER 
yi 


18609 FOR L=l1 TO 1000 :: NEXT L 
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1018 FOR L=1 TO 16 

18626 CALL HCHAR(INT(RND*2Z2+1), INT(RND*26+1),98,1): 
: CALL SOUND(50,-6,9) 

1630 FOR L2=1 TO 20 :: NEXT L2 

1946 NEXT L 

165@ FOR L=l1 TO 500 :: NEXT L 

19698 RETURN 

1978 CALL CLEAR :: CALL SCREEN(8) 

1980 DISPLAY AT(4,1):"DO YOU NEED INSTRUCTIONS?" : 
: DISPLAY AT(6,1):"RESPOND Y/N" 

199@ CALL SOUND(199,400,4) 

1198 CALL KEY(3,K,S):: IF S=@ THEN 1190 

1110 IF K=78 THEN 1210 

1120 IF K<>89 THEN 10890 

1138 CALL CLEAR 

1140 CALL SPRITE(#2,96,12,15,20,#3,100,14,38,20,#4 
,98,5,63,20):: CALL MAGNIFY (2) 

11586 DISPLAY AT(3,8):"15 POINTS" :: DISPLAY AT(6,8 
)}:"18 POINTS" :: DISPLAY AT(9,8):"25 POINTS" 


1168 DISPLAY AT(12,1):"USE THE JOYSTICK TO POSITIO 
N" :: DISPLAY AT(14,1):"THE CROSSHAIR ON THE 
TARGET" 

1170 DISPLAY AT(16,1):"AND PRESS THE FIRE BUTTON T 
O" :: DISPLAY AT(18,1):"SHOOT. UP TO 4 PEOPL 
E CAN" 

1188 DISPLAY AT(2@,1):“PLAY AT ONE TIME. EACH" :: 

DISPLAY AT(22,1):"PLAYER HAS 15 SHOTS." 

1198 DISPLAY AT(24,7):"PRESS ANY KEY" 

1280 CALL KEY(3,K,S):: IF S=8 THEN 1286 

121@ CALL DELSPRITE(ALL):: RETURN 

1228 CALL CLEAR 


1230 DISPLAY AT(4,1):"NUMBER OF PLAYERS? _" :: ACC 
EPT AT(4,20)VALIDATE("1234")SIZE(-1)BEEP:NP 
1249 DISPLAY AT(8,1):"TARGET SPEED? (1-3) _" :: DI 


SPLAY AT(1@,1):"(3 = FASTEST)" 
1259 ACCEPT AT(8,21)VALIDATE("123")SIZE(-1)BEEP:DL 
1266 S1=3*DL :: S2=2*DL :: $3=5*DL 
1278 TL=4+(2*DL) 
1280 RETURN 


Alphabet Invasion 
Take a challenging mind teaser, throw in some graphics and 
sound, and you quickly have an enjoyable program for your 
home computer. ‘Alphabet Invasion” is such a program. 

The object of this game is to unscramble letters beamed 
down by the alien spaceship. Up to four players may compete, 
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and each player has five words to unscramble. Scoring is 
based on speed. If you let the timer run down to zero, your 


turn is over. 


How Alphabet Invasion Works 


Line(s) 
100-110 
120 


130-150 


160-220 


230-520 


540-570 


580-630 
640-690 


700-800 


Clear the screen and seed the random number 
generator. 


Set the dimension limit for the program’s vocabulary. 
Up to 200 words can be used in the program at one 
time. 

Read the words stored in DATA statements into the 
array. The program will continue to read DATA state- 
ments until the word END is encountered. 


Define the character patterns used in the program. 
ASCII code 96 defines the alien spaceship; ASCII code 
97 defines the beam from the ship; ASCII code 104 is 
a blank character used to erase the beam; ASCII codes 
112, 113, and 114 are used to vaporize the letters; and 
ASCII code 120 is used as a horizontal separation 
character. 


Present the introduction banner. Line 270 displays the 
name of the game. Lines 290-330 define the spaceship 
sprite and start it moving from left to right at the top 
of the screen. Lines 340-360 shoot a beam toward the 
word ALPHABET, and lines 370-400 ‘‘vaporize”’ it. 
Lines 420-440 and 450-480 do the same thing to the 
word INVASION. Lines 500-520 move the spaceship 
off the screen. 


Determine the number of players and the name of 
each. 


Display the game screen. 


Main game loop. There will be five words to 
unscramble for each player. Line 660 indicates the cur- 
rent player. 


Select a word from the array. Line 700 selects a ran- 
dom number between 1 and NW, which is the number 
of words in the array. If that element in the array is a 
null, which means it has already been used, another 
random number is selected. Line 710 puts the selected 
word in WORD$. Line 730 sets the variable NL to the 
length of the selected word and clears the variable 
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810-960 


970-1040 


1050-1060 
1070-1180 


1190-1200 


1210-1270 
1280-1410 
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SCRAMBLES. Line 740 clears the array used to scram- 
ble the word. Lines 750-780 scramble the word by 
randomly selecting numbers between 1 and NL. Line 
760 insures that each number is used only once. Line 
770 uses the selected number to place that position of 
the word in the next available position of SCRAM- 
BLE$. Line 790 makes sure the scrambled word isn’t 
the same as the original word. 


Present the scrambled word to the player. Lines 810- 
840 move the spaceship across the top of the screen. 
Lines 850-900 beam down each letter in the scrambled 
word. Lines 910-950 move the ship off the screen. 


Control loop for player’s response. Line 990 looks for 
keyboard input. Line 1000 checks to see if the timer 
has run down to zero. If it has, the turn is over and 
the program branches to line 1050. Line 1010 
increments the counter and displays it on the screen. 
Line 1020 checks to see if the ENTER key was pressed. 
The ENTER key is pressed after the player has guessed 
the word, so the program branches to line 1070. Line 
1030 checks to see if the back arrow (FNCT S) key was 
pressed. This allows the player to correct an entry. 
Line 1040 handles any other key. The ASCII code for 
the key is converted to a character and displayed on 
the screen. 


Indicate to the player that time has run out. 


Check to see if the guess is correct. Line 1070 displays 
RIGHT or WRONG accordingly. Lines 1090-1110 
vaporize the scrambled letters. Line 1120 erases the 
scrambled letters and displays the correct word. Lines 
1150-1170 calculate the player’s score and display it 
on the screen. 


Let player use back arrow key (FNCT S) to correct a 
letter. 


End of game. 


DATA statements containing words. You may add 

your own words to this list or replace it altogether. The 
maximum number is 200 and the last word must be 
END. 
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Program 7-3. Alphabet Invasion 


186 
119 
126 
136 
148 
156 
166 
17 
188 
199 
289 
216 
229 
230 


240 
258 
266 
2768 


280 
296 
308 
316 
326 


338 
348 


358 
366 
3798 
386 
396 
4860 
419 
426 


436 
446 
458 
468 
470 
486 
499 
599 
519 


CALL CLEAR 

RANDOMIZE 

DIM WORDSS$ (296) 

NW=NW+1 

READ WORDSS (NW) 

IF WORDS$(NW)<>"END" THEN 138 ELSE NW=NW-1 
CALL CHAR(96, "3C7EFFFF7E3CO906") 

CALL CHAR(97,"1818181818181818") 

CALL CHAR(164, "OBOBBOPBIGBOOOGODO "' ) 

CALL CHAR(112, "16234719F618C291") 

CALL CHAR(113, "048385718496F719") 

CALL CHAR(114, "748D7391F3831174") 

CALL CHAR(12@, "OGOOFFFFFFFFOGOG " ) 

CALL SCREEN(2):: CALL COLOR(9,9,1,10,1,1,11,11 
,1,12,14,1) 

FOR L=2 TO 8 

CALL COLOR(L,16,1) 

NEXT L 

DISPLAY AT(15,7):"A L P HABE T&T" ¢:: DISPLAY 
AT(21,7):"I NV AS ION" 

FOR L=1 TO 1908 :: NEXT L 

CALL MAGNIFY (2) 

CALL SPRITE(#1,96,5,20,1) 

FOR L=2 TO 1298 

Sar LOCATE(#1,20,L):: CALL SOUND(-1,509-L,7,- 
3,2 

NEXT L 

CALL VCHAR(4,16,97,12):: CALL SOUND(29,1509,5, 
-6,@) 

CALL VCHAR(4,16,104,12) 

CALL SOUND(1598,118,9,-6,0) 

FOR L=l TO 4 

FOR L2=112 TO 114 

CALL HCHAR(15,9,L2,15) 

NEXT L2 :: NEXT L 

CALL HCHAR(15,7,184,17) 

ee eo ee CALL SOUND(28,1589,5, 
-6,2 

CALL VCHAR(4,16,194,17) 

CALL SOUND(158,118,9,-6,@) 

FOR L=1 TO 4 

FOR L2=112 TO 114 

CALL HCHAR(21,9,L2,15) 

NEXT L2 :: NEXT L 

CALL HCHAR(21,7,194,17) 

FOR L=121 TO 256 

.. LOCATE(#1,28,L):: CALL SOUND(-1,380+L,7,- 
3,2 
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528 
539 
546 


558 
566 


570 
586 
596 


686 


610 
626 


630 


640 
65 
660 
676 
688 
698 
700 


719 
726 
736 
740 
759 
760 
778 
780 
798 
800 
519 
826 
830 


846 
856 
860 
876 


880 
896 
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NEXT L :: CALL DELSPRITE(#1) 
CALL CLEAR 
DISPLAY AT(4,1): "NUMBER OF PLAYERS? (1-4) " : 


: ACCEPT AT(4,26)VALIDATE("1234")SIZE(-1)BEEP:NP 


FOR L=l1 TO NP 
DISPLAY AT(6+(L*2),1): "NAME OF PLAYER";L :: AC 
CEPT AT(6+(L*2),18)SIZE(9)BEEP:PNS$(L) 

NEXT L 

CALL CLEAR 

CALI HCHAR(16,1,120,32):: CALL HCHAR(19,1,120, 
32) 

DISPLAY AT(18,1):"TIME:" :: DISPLAY AT(18,12): 
"WORD: " 

DISPLAY AT(26,9):"** SCORE **" 


DISPLAY AT(22,1):PN$(1);3:: DISPLAY AT(22,16):P 
N$(2); 

DISPLAY AT(23,1):PN$(3);:: DISPLAY AT(23,16):P 
NS$ (4); 

FOR PLAY=1 TO 5 


FOR L=l1 TO NP 

DISPLAY AT(1,8): "TURN: “;PNS(L) 

GOSUB 7€0 :: GOSUP 810 :: GOSUB 976 

NEXT L 

NEXT PLAY :: GOTO 1210 

WORD=1+INT(RND*NW):: IF WORDSS(WORD)="" THEN 7 
BO 

WORDS=\WORDSS (WORD ) 

WORDSS (WORD) ="" 

NL=LEN (WORDS ):: SCRAMBLES="" 

FOR L2=1 TO NL :: WA(L2)=@ :: NEXT L2 

FOR L2=1 TO NL 

N=1+INT(RND*NL):: IF WA(N)=1 THEN 762 
SCRAMBLE$=SCRAMBLES &SEG$ (WORDS,N,1):: WA(N)=1 
NEXT L2 

IF SCRAMBLES$=WORDS$ THEN 730 

RETURN 

CALL SPRITE(#1,96,5,298,1) 

FOR L2=2 TO 84 

CALL LOCATE(#1,20,L2):: CALL SOUND(-1,508,7,-3 
NEXT L2 

FOR L2=1 TO NL 

CALL VCHAR(4,16+(L2*2),97,9):: CALL SOUND(29,1 
508,5,-6,8):: CALL VCHAR(4,106+(L2*2),194,9) 
ave Gere et eae, 2) BOC (SECO SCRAMBLES EZ) 
1)),1 

FOR L3=1 TO 16 

CALL LOCATE(#1,20,68+(L2*16)+L3):: CALL SOUND( 
-1,380,7,-3,0) 
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968 NEXT L3 :: NEXT L2 

918 CALL POSITION(#1,DR,DC) 

920 FOR L2=DC TO 256 

938 CALL LOCATE(#1,28,L2):: CALL SOUND(-1,569,7,-3 


8) 


949 NEXT L2 


950 
968 


CALL DELSPRITE( #1) 
RETURN 


970 TI=0 :: TIME=100 :: ANSS="" 


986 
996 
1696 
1616 


1926 
1839 
1946 


1658 
1066 


1878 


1980 
1996 
1109 
1116 
1120 


1130 


1149 


1158 
1168 


1176 
1188 
1199 


1290 
1219 
1220 
1230 
1246 
12598 


DISPLAY AT(18,19):" " 
CALL KEY(3,K,S) 


IF TIME=8 THEN 1050 

TI=TI+1l :: TIME=l109-INT(TI/8):: DISPLAY AT(1& 

,©):TIME;:: IF S=@ THEN 990 

IF K=13 THEN 1079 

IF K=8 THEN 1196 

ANSS=ANSS&CHRS(K):: DISPLAY AT(18,19):ANSS$;:: 
GOTO 9998 

CALL SOUND(1808,808,5,-6,@) 

DISPLAY AT(12,6):"** OUT OF TIME **" :: GOTO 

1998 

IF ANSS=WORD$ THEN DISPLAY AT(12,9):"** RIGHT 
**" BLSE DISPLAY AT(12,9):"** WRONG **" 3: C 

ALL SOUND(1696,800,5,-6,%8):: TIME=@ :: GOTO l 

BIOS 

CALL SOUND(1900,200,4,2000,@) 

FOR L3=l1 TO 8 :: FOR L4=112 TO 114 

CALL HCHAR(14,12,L4,LEN(WORD$ ) *2-1) 

NEXT L4 :: NEXT L3 

CALL HCHAR(14,1,32,32):: CALL HCHAR(15,1,32,3 

2):: DISPLAY AT(15,12):WORD$ :: FOR DELAY=1 T 

O 20008 :: NEXT DELAY 

CALL HCHAR(12,1,32,32):: CALL HCHAR(14,1,32,3 

2):: CALL HCHAR(15,1,32,32) 

DISPLAY AT(18,6):"100";:: DISPLAY AT(18,19):" 


Sc(L)=SC(L)+TIME 
R=22+INT(L/3):: C=10 :: IF L=2 OR L=4 THEN C= 
C+15 


DISPLAY AT(R,C):USING "###":SC(L); 
RETURN 
IF LEN(ANSS)<2 THEN ANSS=""" ELSE ANSS$=SEGS$ (AN 


S$,1,LEN(ANSS)-1) 

DISPLAY AT(18,19):ANS$ :: GOTO 996 
CALL HCHAR(1,1,32,32) 

DISPLAY AT(1,8):"** GAME OVER **" 
CALL SOUND (596,229,0,294,0,349,9) 
CALL SOUND (586,196,0,330,0,698,@) 
CALL SOUND (5@9,228,8,294,8,349,0) 
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1268 CALL SOUND(98@,247,8,587,8,784,@) 

1278 GOTO 1276 

12898 DATA "TRAIN", "BOOKS", "DESK", "PAPER", "SOCKS", " 
BOUNCE", "WRITE", "CLOUT" 

1298 DATA “COMPUTE", "BORDER", "THINK", "NUMERIC", "RE 
GRET", "FUNGUS", "MONITOR", "PRINTER", "TONSIL" 

1300 DATA "RULER", "PURSUE", "ANIMAL", "FEMALE", "CLOS 
ET", "CABLE", "CURTAIN", "TOWEL" 

1318 DATA "SAUCER", "INVADE", "PICKLE", "CURDLE", "STR 
EET", "AVENUE", "PANTS", "GRAPHIC", "KNIGHT", "PER 
SON", "RADICAL" 

1328 DATA "GIGGLE", "LEATHER", "MEDIUM", "OBLONG", "SQ 
UARE it) , "JACKET se 5 "BREATH ta ; “AUTHOR ti P "AUTUMN Li ; "TR 
OWEL", "METHOD" 

1338 DATA "PISTOL", "ROUGH", "ROTUND", “CLENCH", "SURM 
ISE", "TRANSIT", "TRAMPLE", "VALIANT", "WEIGHT", " 
HEIGHT", "YEOMAN" a 

1348 DATA "ZIPPER", "ZEALOUS", "PROJECT", "JUNGLE , H 
EAVY", "HEDGE", "JUDGE", "QUICK", "CONSIST", "BELI 
EVE", "BISCUIT", "HARMONY", "MUSICAL", "SCALE" 

1358 DATA "RADIO", "VALUE", "ARRAY", "CHILD", "MONTH", 
"CROWN", "SHELL", "BIRTH", "PROGRAM", "STRING", "A 
SSIGN", "TRACK" 

1368 DATA "ADDRESS", "POINT", "ANALOGY", "VERSION", "E 
NOUGH", "COMPANY", "REASON", "GRADE", "WORLD", "CH 
AIR", "GUIDE", "QUENCH", "TURMOIL" 

1370 "STATION", "MAGIC", "RESOLVE", "MACHINE", "MANAGE 
R", "VITAL", "OBSCURE", "REVOLT", "EDUCATE", "PROD 
UCE", "ELECT" 

1386 DATA "DRIVE", "ENTRY", "ELICIT", "ASPIRE", “REFUT 
E", "BANANA", "OUTSIDE", "NORMAL", "MAJOR", "ACCEN 
Tt" “PRASH", "BINDER", "SPIRAL", "REMOTE" 

1398 DATA "SEARCH", "CAREER", "BEACH", "LISTING", "JOI 
NT", "CAVITY", "WRECK", "MANUAL", "ECONOMY", "EXPA 
ND", "REVULSE", "DESTROY", "REPAIR" 

1480 DATA "CAPTIVE", "SOUND", "WAYWARD", "CRAFT", "IMP 
ULSE", "IMAGINE", "CRACKER", "BECOME", "BEMOAN", " 
AVOID", "FETCH", "FUTURE", "INJURY", "JUSTICE" 

1418 DATA “END" 


Banzai Bunny 

“Banzai Bunny’ demonstrates just how versatile TI sprites can 
be. It uses 24 of the 28 possible sprites and incorporates many 
sprite subprogram commands, including CALL MAGNIFY, 
CALL MOTION, CALL POSITION, and CALL DELSPRITE. In 
addition, it uses two versions of the CALL COINC 
subprogram. 
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Your job is to move the bunny from the bottom of the 
screen across six lanes of traffic, over a polluted river on the 
backs of turtles, and finally to safety on the far shore. The 
bunny is controlled by the E, S, and D keys, and points are 
scored by reaching the other side of the river. As many as 
nine players may compete at one time. Each player has five 
bunnies, and a player’s turn continues until all five have been 
lost. 


How Banzai Bunny Works 
Line(s) 
100 Clear the screen. 


110-220 Define the character patterns used in the program. 
ASCII code 96 defines the bunny moving up, ASCII 
code 100 defines the bunny moving to the right, and 
ASCII code 104 defines the bunny moving to the left. 
ASCII codes 108, 112, and 116 define the bunny jump- 
ing up, right, and left, respectively. ASCII code 140 
defines the bunny’s demise on the highway or in the 
river. ASCII codes 120 and 124 defines the cars, while 
ASCII code 128 defines the turtles. 


230 Set the character pattern colors. 
240-250 Determine the number of players. 


260-450 Set up the screen. Lines 270-350 draw the highway, 
the river, and the borders. Lines 370-420 define the 
car sprites and set them in motion. Lines 430-450 
define the turtle sprites and set them in motion. 


460-510 Main game loop. Line 460 initiates the loop based on 
the number of players. Line 470 sounds a series of two 
tones to indicate the beginning of a player’s turn. Lines 
480-490 display the player number, number of bun- 
nies, and score. Line 500 transfers program control to 
the routine to control the bunny. 


520 Branch to end-of-game routine when no more players. 
530 Define the bunny sprite. 


540-600 Loop to control the bunny while on the road. Line 540 
looks for keyboard input. Line 550 transfers to a dif- 
ferent routine if the bunny is at a row position less 
than 64, which indicates that the bunny is at the river. 
Otherwise, the bunny is on the road. Line 560 checks 
to see if there is any coincidence. If there is, it can only 
mean that the bunny was run over by a car. In that 
case, the program branches to line 780. Lines 570-590 
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610 


620 
640-690 


700-770 


780-840 


850-880 


890-940 


Program 7-4. Banzai Bunny 


1@@ CALL CLEAR :: RANDOMIZE 

118 CALL CHAR(4@, "FFFFFFFFFFFFFFFF") 

128 CALL CHAR( 96, "G@GBGVVH38709G303030383901 90009000 
SUVOLOGUGAGCHBSBVUSGCUOCDCUHHGBGBOH" ) 
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check to see if an arrow key was pressed. If so, the 
routine to move the bunny in that direction is invoked. J 


Control routine for the bunny while at the river. Line 
610 checks for coincidence. If there is, the bunny is on 
a turtle, and consequently OK. If there is no 
coincidence, the bunny is in the river. This is the 
opposite condition from the routine for the road. 


Sound routine for jumping bunny. 


Routines to move the bunny. Lines 640-650 move the 
bunny up; lines 660-670 move the bunny to the left; 
lines 680-690 move the bunny to the right. 


Loop to control bunny at the river. Line 700 looks for 
keyboard input. Line 710 invokes the appropriate rou- 
tine to move the bunny. Line 720 determines the bun- 
ny’s position. If the bunny is at row 1, he has reached 
the other side of the river. Line 730 makes sure that 
the bunny does not wrap around the screen hori- 
zontally. If the bunny reaches the edge of the screen, 
he is dead. Based on the row position obtained in line 
720, line 740 puts the bunny in motion to the left or 
right, at the speed of the turtle at that row position. 
The effect is to have the rabbit ride the turtle. Line 750 
checks for coincidence. If there is no coincidence, then 
the rabbit is in the river. In that case, the program 
branches to the routine at line 780. 


Routine for a bunny’s demise. Line 780 produces a 
squish sound. Line 790 changes the bunny’s pattern. 
Line 800 is a delay loop. Line 810 deletes the bunny 
sprite. Line 820 decrements the bunny counter. If there 
are no more bunnies for the player, the program 
branches back to the main routine for the next player. 


Routine to increment and display score for a bunny 
that made it to the other side of the river. 


End of game. The final score for all players is 
displayed. 
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130 
149 
158 
169 
176 
180 
199 
206 
210 
226 
230 
240 
250 


260 
270 


280 
299 
306 
319 
328 
330 
348 
359 
369 
376 
389 
396 
480 


419 


CALL CHAR(19@, "G@BSGGPGHSVYGHIV 7GFOFOEVGVOOGUGOSG 
POHVUGGOGLH2G1 ODSFEEG3IIGGOGYGOBOOGGOOH " ) 

CALL CHAR(194, "WQ2GBGOUHEH4G81B1 FH 7UCODGGOLODGGS 
DUOGUDHYSHOGOEDSFOFD 7GOPGOGODOHUOHBOH" ) 

CALL CHAR(108, "€86000G30799030309303030190000060 
BGOCH494G4 G9 8G8U8G808G89CH 49490096" ) 

CALL CHAR(112, "@QOGOSLGOWGYVGH TOF OF 38OGHGOLVUGOGGH 
SPOOSGOOSPGGH2G1GDSFEED1LCUDHSOHOGUDHDG " ) 

CALL CHAR(116, "G0G0009264081B1FH7 3COBLHUDGUOLOO 
BHOODUOHOOPHOOOGEOFOFD1CGOGUOLVODHOOY" ) 

CALL CHAR(12U, "©@G@G0GG0G00102043F7FFFFF3810060 
POOVOOLGOOPOFOS4844FEFFFFFF1COBOGOS" ) 

CALL CHAR(124, "O@VOPGOUPSOVQHOF12227FFFFFFF381 0000 
OBODDGVGOGG8SO4H 2UFCFEFFFF1CU8R90B" ) 

CALL CHAR(128, "G@90G007OF3F3F7FFFFF7F3F3FQOFO7000 
GGOOOEOFOFCFCFEFFFFFEFCFCFUEQGGO6 " ) 

CALL CHAR(132, "FFFFFFFFFFFFFFFF"):: CALL CHAR( 
136, "G@QSGVGBOOHBODGOOUF") 

CALL CHAR(140, "8UCG6070303098909030303060718182 
G919203871C36708080CH697930109190") 

CALL COLOR(2,5,1,13,4,1,14,2,1) 

DISPLAY AT(4,1): "NUMBER OF PLAYERS? _" 

ACCEPT AT(4,20)VALIDATE(NUMERIC)SIZE(-1)BEEP:N 
P 

CALL CLEAR 

yo HCHAR(23,1,132,32):: CALL HCHAR(24,1,132, 
32 

es HCHAR(19,1,132,32):: CALL HCHAR(9,1,132,3 
2 

CALL HCHAR(1,1,132,32):: CALL HCHAR(2,1,132,32 


FOR L=12 TO 21 STEP 2 

CALL HCHAR(L,1,136,32) 

NEXT L 

FOR L=3 TO 8 

CALL HCHAR(L,1,4U,32) 

NEXT L 

CALL MAGNIFY (3) 

CALL SPRITE(#2,124,2,160,70,60,9,#3,124,9,160,1 
50,2,9,#4,124,14,168,239,9,9) 

CALL SPRITE(#5,124,15,144,10,0,12,#6,124,5,144 
,1@0,0,12,#24,124,13,144,199,9,12) 

CALL SPRITE(#7,124,2,128,70,6,10,#8,124,9,128, 
158,0,10,#9,124,11,128, 234,6,19) 

CALL SPRITE(#10,120,9,112,70,0,-10,#11,120,14, 
112,158,6,-10,#12,120,16,112,230,8,-10) 

CALL SPRITE(#13,1280,11,96,10,0,-12,#14,120,5,9 
6,100,8,-12,#25,120,14,96,190,0,-12) 
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420 


436 
440 
456 
468 
479 


480 


4908 
588 
516 
520 
530 


542 
556 
560 
576 
586 
596 
600 
616 
620 


639 
640 


650 
660 
676 
680 
699 


766 
719 


720 


730 
746 
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CALL SPRITE(#15,120,2,80,70,9,-9.,#16,120,10,&0 
,150,0,-9,#17,128,15,80,230,8,-9):: GOTO 466 

CALL SPRITE(#19,128,2,48,19,6,4) 

CALL SPRITE(#21,128,2,32,106,8,-3) 

CALL SPRITE(#22,128,2,16,19,0,5):: RETURN 

FOR PL=1 TO NP 

BUNNY=5 :: FOR D=l TO 5 :: CALL SOUND(309,560, 

@):: CALI SOUND(308,308,0):: NEXT D 

DISPLAY AT(24,1):USING "###### #": "PLAYER",PL; 
:: DISPLAY AT(24,20):USINC "####### #":""BUNNIE 

S", BUNNY 

DISPLAY AT(1,18): "SCORE: {4 SPACES}"; 

GOSUB 53d 

NEXT PL 

GOTO 89 

GOSUB 430 :: CALL SPRITE(#18,96,16,176,125):: 

R=176 :: C=125 

CALL KEY(3,K,S) 

IF R<64 THEN 616 

CALL COINC(ALL,CO):: IF CO<>® THEN 780 

IF K=69 THEN GOSUB 648 :: IF R<64 THEN 700 ELS 

E 54¢@ 

IF K=83 THEN GOSUB 669 :: GOTO 546 

IF K=68 THEN GOSUB 688 :: GOTO 548 

GOTO 546 

CALL COINC(ALL,CO):: IF CO=™0 THEN 78@ ELSE 576 

CALL SOUND(70,500,5,-6,8):: CALL SOUND(30, 32, 

5,-4,8):: RETURN 

RETURN 

CALL PATTERN(#18,108):: R=R-16 :: SW=l :: IF R 
<1 THEN R=1 

CALL LOCATE(#18,R,C):: CALL PATTERN(#18,96):: 

COSUB 628 :: RETURN 

CALL PATTERN(#18,116):: C=C-16 :: SW=l :: IF C 
<1 THEN c=1 

CALL LOCATE(#18,R,C):: CALL PATTERN(#18,104):: 
GOSUB 628 :: RETURN 

CALL PATTERN (#18,112):: C=C+16 :: SW=l :: IFC 
>249 THEN C=246 

CALL LOCATE(#18,R,C):: CALL PATTERN(#18,1008):: 
GOSUB 6298 :: RETURN 

CALL KEY(3,K,S) 

IF S<>@ THEN IF K=69 THEN GOSUB 64% ELSE IF K= 
83 THEN GOSUP ©68 ELSE IF K=68 THEN GOSUB 688 

CALI POSITION(#18,R,C):: IF R=l THEN CALL MOTI 

ON(#18,8,8):: GOTO 850 

IF C<7 OR C>23& THEN 780 

IF R<=48 AND R>32 THEN CALL MOTION ( #18,0,4)ELS 

E IF R<=32 AND R>16 THEN CALL MOTION( #18,98,-3) 

ELSE CALL MOTION( #18,6,5) 
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750 IF SwW=l THEN CALL COINC(ALL,CO):: IF CO=6 THEN 
780 ELSE SwW=@ 

776 GOTO 708 

7890 CALL SOUND(300,3508,0,5000,5):: CALL SOUND(-29 
@,200,5,-6,@) 

798 CALL PATTERN(#18,140):: CALL COLOR(#18,11) 

880 FOR D=l1 TO 25 :: NEXT D 

818 CALL DELSPRITE( #18) 

820 BUNNY=BUNNY-1 :: IF BUNNY<l THEN 639 

838 DISPLAY AT(24,27):USING "##": BUNNY 

848 GOTO 5398 

85@ CALL SOUND(1508,489,5,1990,8):: FOR D=1 TO 589 

:: NEXT D 

669 SC(PL)=SC(PL)+15 

878 DISPLAY AT(1,17):USING "###":SC(PL); 

888 GOTO 539 

89G CALL DELSPRITE(ALL):: CALL CLEAR 

99G DISPLAY AT(2,7):"** SCORE **" 

919 FOR L=1 TO NP 

928 DISPLAY AT(4+L*2,4):USING "###### #{3 SPACES}# 
##": "PLAYER",L,SC(L) 

938 NEXT L 

946 GOTO 948 


Zone Defender 

While the previous programs have used the keyboard or joy- 
stick to move a sprite around the screen, “Zone Defender”’ 
demonstrates how sprites can be used to simulate a moving 
window. In other words, your laser sight will remain sta- 
tionary while everything else moves. 

You are the commander of a defensive space station at the 
outer reaches of the solar system, and you are responsible for 
defending your zone from invading spacecraft. The screen is 
your window into space, and at its center is a targeting sight. 
When an invading craft flies across the screen, you must track 
it with your sight and destroy it. The joysticks control your 
maneuvering rockets, which rotate the ship in the appropriate 
direction. 

The maneuvering rockets have a cumulative rotation 
effect. In other words, the longer the joysticks are pushed in a 
certain direction, the faster the rotation of your ship. The ship 
will continue to rotate in one direction until an equal amount 
of rocket power is applied in the other direction. 

To destroy an invading craft, you must first center it in 
your sight. A message at the top of the screen will tell you 


195 


Putting It All Together! sua 


when you're locked on, and you can fire your laser using the 
fire button on your joystick. There are ten invading ships, and 


=a 
a 
= 


your final score is determined by how quickly you dispatch 
the invaders. 


How Zone Defender Works 
Line(s) 
100 Clear the screen and set its color to black. 
110 Seed the random number generator. 
120-200 Define the character patterns used by the program. 
ASCII codes 100, 104, and 108 define the stars. ASCII 
code 96 defines the sight. ASCII code 112 defines the 
enemy spacecraft, ASCII code 120 defines the laser, 
and ASCII codes 124 and 128 define the explosion 
characters used when a ship is destroyed. 
210 Set the character code colors. 
220-270 Set the magnification factor to 3. Create the sprites for 
the stars. 
280 Transfer to the introduction banner. 
290 Display the score. 
300 Create the sprite for the sight. 
310-320 Increment the enemy ship counter. If count exceeds 
ten, branch to the end-of-game routine. Otherwise, dis- 
play the number of enemy ships remaining. 
330-350 Determine a random row and column velocity for the 
enemy spacecraft. Line 350 places the spacecraft on the 
screen. 
360 Check for joystick movement. If there is movement, 
produces a sound to simulate rockets firing. 
370 Check to see if the spacecraft is in the sight. If it is, 
display the LOCKED ON message. 
380 Check to see if fire button was pressed. If it was, 
branch to laser firing routine at line 440. 
390-400 Put stars in motion, based on the direction in which 
the joystick is moved. Effect is cumulative. = 
410-420 Control the spacecraft’s direction and speed based on cs 
the direction in which the joystick is pressed. Again, ory 
the effect is cumulative. = 
430 Check the joystick again. ~ 
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440-530 Fire the laser. Line 470 checks to see if the sight and 


the spacecraft were coincident. If they weren't, the pro- 
gram branches back to the main routine. Otherwise, 
the spacecraft was hit. Lines 480-500 generate an 
exploding sound and change the spacecraft sprite to 
the explosion patterns. Line 510 displays the score. 
Line 520 stops all motion in preparation for the next 
spacecraft. 


540-550 End of game. 
560-600 Display introduction banner. 


Program 7-5. Zone Defender 


1808 
116 
128 


136 


146 


150 


169 


176 


189 


196 


200 


216 


220 
230 
240 
256 
260 
276 
286 
290 
388 
316 
320 


CALL CLEAR :: CALL SCREEN(2) 

RANDOMIZE 

CALL CHAR(100, "G1GBGPLHIGDGOHPAGOSLGGGGOOGBGOSLHHGO 
DIGWDODPISOAGHVSLSOSVSGGUGOOOGHG OOD") 

CALL CHAR(194, "G@BGGOPDLOGUDBOBHIIOHBOHGHGHUOHSOBBG 
OIGIPSHSPDHSGCGHOPSHGHEOPGHGGGGOH2GG OGG" ) 

CALL CHAR(1G8, "G@BBLBOBBOGGIOOBHOHGOGOGHOGHBHGHHBOG 
POBDVAGDOSUYPSGSOOGHGOGGGOGODGIG BOG") 

CALL CHAR( 96, "FF808G808E8 888808088888E808080FF 
FF9101817111118181111171910101FF") 

CALL CHAR(12@, "@901929291010828244449181282828 
102828334207720383929202631194641") 

CALL CHAR(112, "O@90307O0FOF3F3FFFFF3F3FOFOF97930 
OGOCOEOFOPOFCFCFFFFFCFCFOFOESC BOG") 

CALL CHAR(128, "8849201608049201610204081926408 
0G1029488102040808640201098040 201") 

CALL CHAR(124, "@8002026180804930F13214101820Ce 
OISGGGE1G2G4G040COFOCB8H8G49804B GBD") 

CALL CHAR(128, "8@A98248C2A288C48844A281C28@8CC 
301034182411344019402427382412811") 

CALL COLOR(3,16,1,4,16,1,5,16,1,6,16,1,7,16,1, 
8,16,1) 

CALL MAGNIFY (3) 

CALL SPRITE(#4,100,16, 20, 20,#5,104,16, 20,160) 

CALL SPRITE(#6,108,16,50,19@) 

CALL SPRITE(#7,104,16,80,150) 

CALL SPRITE(#8,194,16,120,26,#9,198,16,128,80) 
CALL SPRITR(#10,104,16,164,140) 

GOSUB 56@ 

DISPLAY AT(24,2):"SCORE:{4 SPACES}" 

CALL SPRITE(#1,96,6,99,125) 

CT=CT+1 :: IF CT>10 THEN 540 

DISPLAY AT(24,20):"SHIPS";11-CT 
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336 
346 
358 
369 
376 
386 
390 
406 
416 
420 
436 
446 
456 


469 


X2=1+INT(RND*39):: IF RND<.5 THEN X2=-X2 

Y2=1+INT(RND*398):: IF RND<.5 THEN Y2=-Y2 

CALL SPRITE(#3,112,15,1+INT(RND*19@), 1+INT(RND 
*240),X2,Y2) 

CALL JOYST(1,A,B):: TI=TI+l :: IF A<>2 OR B<>® 
THEN CALL SOUND(-548,-6,98) 

CALL COINC(#1,#3,6,CO):: IF CO<>@ THEN DISPLAY 
AT(2,1@): "LOCKED ON";ELSE DISPLAY AT(2,10):" 
a 


CALL KEY(1,K,S):: IF K=18 THEN 449 
Y=MIN(Y+B,120):: Y=MAX(Y,-120):: X=MIN(X-A,12@ 
):: X=MAX(X,-120) 

CALL MOTION(#4,Y,X,#5,Y,X,#6,Y,X,#7,Y,X%,#8,Y,X 
,#9,Y,X,#18,Y,X) 

Y2=MIN(Y2-B,120):: Y2=MAX(Y2,-120):: X2=MIN(X2 
~A,120):: X2=MAX(X2,-1290) 

CALL MOTION (#3,~-Y2,X2) 

GOTO 360 

CALL SPRITE(#2,120,9,90,125) 

CALL SOUND(198,1200,4,-5,8):: CALL SOUND(-286, 
969,5,-5,@) 

CALL DELSPRITE( #2) 


478 IF CO=6 THEN GOTO 369 

488 CALL COLOR(#3,9):: CALL PATTERN(#3,124):: CALL 
SOUND (-280,400,8,-6,%):: SC=SC+MAX(500-TI,@): 
: TI=6 

499 CALL PATTERN(#3,128) 

588 CALL DELSPRITE( #3) 

518 DISPLAY AT(24,9):USING "####":SC 

520 CALL MOTION(#4,0,6,#5,9,8,#6,9,0,#7,0,8,#8,9,08 
,#9,0,0,#19,0,0):: X=8 3: Y=O 

538 GoTo 316 

548 DISPLAY AT(2,8):"** GAME OVER **" 

558 GoTo 558 

568 DISPLAY AT(6,11):"Z ON E" 

578 DISPLAY AT(10,7):"D EF END ER" 

588 DISPLAY AT(20,8):"PRESS ANY KEY" 

599 CALL KEY(3,K,S):: IF S=0 THEN 596 

688 CALL CLEAR :: RETURN 

Addition Climber 


Since small children are usually unafraid of computers, it is lit- 
tle wonder that home computers are used more and more fre- 
quently in education. 


A computer program designed for educational purposes 


should have several important characteristics. First, it must 
allow for increasing levels of difficulty in order to challenge 
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the child. Second, it should establish some specific goal as a 
measure of success. Finally, it should offer encouragement and 
a reward when that goal is achieved. 

“Addition Climber” allows your child to practice addition 
skills. The program uses the TI Speech Synthesizer to offer 
encouragement or inform the child of an incorrect answer. 
Speech synthesis gives any educational program a more per- 
sonal approach. 

The program asks for the answers to ten addition prob- 
lems. For each correct answer, a gorilla climbs a little further 
up a building. If all ten answers are correct, the gorilla reaches 
the top of the building and does a short dance. 


How Addition Climber Works 

Line(s) 

100 Clear the screen and seed the random number 
generator. 

110-180 Define the character patterns used in the program. 

190 Set the colors for the character patterns. 

200 Determine the difficulty level. The highest number 


used in the problems is determined by the difficulty 
level times five. In other words, the highest numbers 
to add for a difficulty level four would be 20 + 20. 


210-310 Set up the problem board. Line 230 draws the build- 
ing; line 270 creates the gorilla. 


320-490 Main game loop. Line 340 determines the two num- 
bers for each addition problem. Line 350 invokes a 
routine that presents the number on the screen as 
magnified sprites. Lines 360-390 “speak” the problem 
question (for example, ‘“‘What is 10 plus 12?’’). Line 
400 accepts the answer from the child. Line 410 deter- 
mines if the answer is correct and invokes the appro- 
priate response routine. Line 420 calls a routine to 
display the correct answer on the screen as 1 or 2 mag- 
nified sprites. Line 430-450 branch to routines which 
speak words of encouragement. Line 460 displays the 
tally of correct answers. Line 480 deletes the number 
sprites in preparation for the next problem. 


500-540 End of game. If all problems were answered correctly, 
line 500 calls routines to speak congratulations to the 
child and make the gorilla dance. 


550-600 Control which number is spoken. 
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610-680 Indicate an incorrect answer. Line 640 randomly picks 


one of three phrases to inform the child the answer is 
wrong. Lines 650-670 inform the child of the correct 


answer. 
690-710 The three phrases for an incorrect answer. 
720-800 Routine for a correct answer. Again, one of three 


phrases is randomly picked to inform the child that the 
answer is correct. 


810-830 The three phrases for a correct answer. 
840-990 Display the numbers for the current problem as mag- 


nified sprites. 


1000-1070 Display the correct answer as magnified sprites. 
1080-1160 Words of encouragement. 

1170-1220 Make the gorilla climb the building. 

1230-1320 Make the gorilla dance at the top of the building when 


all answers are correct. 


1330-2030 Speak the numbers. 


Program 7-6. Addition Climber 


100 
119 
128 
139 
146 
158 
169 
176 
189 
199 
206 


218 
226 
236 
246 
258 


266 
276 
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CALL CLEAR :: RANDOMIZE 

CALL CHAR(4G, "@OOOOGFFFFOSOGGOH " ) 

CALL CHAR(96, "FFFFFFFFFFFFFFFF ") 

CALL CHAR(116, "0191919191919191") 

CALL CHAR(120, "FFF1FF81FF81FF81") 

CALL CHAR(194, "FFFFC3C3C3C3FFFF") 

CALL CHAR(112, "9999FF3C3C7E4242") 

CALL CHAR(113, "1818FF3C3C3C2424") 

CALI CHAR(114, "1818FFBDBD3C2424") 

CALL COLOR(9,13,1,16,15,5,11,2,1,12,9,16) 
DISPLAY AT(6,1): "DIFFICULTY LEVEL 1-7 _" :: AC 
CEPT AT(6,22)VALIDATE( "1234567" )SIZE(—-1)BEEP:D 
L 

CALL CLEAR 

FOR L=19 TO 23 :: CALL HCHAR(L,1,96,14):: NEXT 
L 

FOR L=8 TO 18 :: CALL HCHAR(L,5,104,5):: NEXT 

L 

CALL VCHAR(4,7,116,4):: CALL HCHAR(4,8,126,1) 

DISPLAY AT(1,5):"ADDITION CLIMBER" 

CALL MAGNIFY (2) 

CALL SPRITE(#19,112,2,128,40):: ROW=128 :: COL 
=49 


j 33 
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DISPLAY AT(4,18):"TRIES:" :: DISPLAY AT(6,18): 
"RIGHT: " 

CALL HCHAR(18,23,48,4) 

CALL SAY("PRESS ANY KEY TO START.") 

CALL KEY(3,K,S):: IF S=@ THEN 310 

FOR L=1 TO 19 

DISPLAY AT(8,10):" " :: DISPLAY AT(23,13):" " 
V1=1+INT(RND*(DL*5)):: V2=1+INT(RND* (DL*5) ) 
GOSUB 849 

CALL SAY("WHAT IS"):: IF V1>25 THEN Al=V1~-25 E 
LSE A=V1l 

IF V1>25 THEN GOSUB 578 ELSE GOSUB 559 

CALL SAY("AND"):: IF V2>25 THEN Al=V2-25 ELSE 
A=V2 

IF V2>25 THEN GOSUB 578 ELSE GOSUB 558 
DISPLAY AT(23,13):"ANSWER-->" :: ACCEPT AT(23, 
23 )VALIDATE (NUMERIC) BEEP: ANSS$ 

IF VAL(ANSS$)<>V1+V2 THEN GOSUB 618 ELSE GOSUB 
728 

GOSUB 1996 

IF L=5 AND RIGHT=5 THEN GOSUB 1089 

IF L=7 AND RIGHT=7 THEN GOSUB 1196 

IF L=9 AND RIGHT=9 THEN GOSUB 1129 

DISPLAY AT(4,25):USING "##":L :: DISPLAY AT(6, 
25):USING "##":RIGHT 

FOR D=1 TO 1706 :: NEXT D 

CALL PDELSPRITE(#1,#2,#3,#4,#5, #6, #7) 

NEXT L 

IF RICHT=19 THEN GOSUB 1238 :: GOSUB 1146 
CALL SAY("DO YOU WANT TO TRY AGAIN"):: CALL SA 
Y("IF SO, PRESS THE Y KEY") 

CALL KEY(3,K,S):: IF S=8 THEN 520 

IF K=89 THEN CALL DELSPRITE(ALL):: RUN 

CALL DELSPRITE(ALL):: CALL CLEAR :: STOP 

ON A GOSUB 1348,1350,1360,1370,1388,1390,1480, 
1419,1420,1430,1440,1450,1460,.1470,1480,14908,1 
500,1510,1520,1530,1548,1558,1569, 1578,1586 


RETURN 

ON Al GOSUB 1590,1608,1610,1620,1630,1640,1650 
1668, 1670, 1680,1690,1700,1718,1720,1738,1740, 
1750,1768,1778,1788,1798,1800,1819,1820,1830 


RETURN 

ON Al GOSUB 1848,1850,1869,1870,1880,1890,1980 
,19198,1920,1930,1948,1958,1960,1970,1980,1999, 
2900 , 2018, 2620, 2030 

RETURN 

A=V1+V2 

DISPLAY AT(8,18):"** WRONG **" 
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630 
640 
656 
669 


678 
680 
696 


780 


710 
728 


73 
748 
75@ 
76@ 
776 


786 
790 
800 
81 


826. 
836 
840 
856 
866 
876 
880 
898 
980 
918 
920 
930 
949 
958 
960 
976 
989 
998 
1969 
1619 
1620 
1930 
1640 
1658 
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IF A>5@ THEN Al=A-50 ELSE IF A>25 THEN Al=A~25 
ON 1+INT(RND*3)GOSUB 699,799,719 
CALL SAY("THE CORRECT ANSWER IS") 
IF A>5@ THEN GOSUB 598 ELSE IF A>25 THEN GOSUB 
5768 
IF A<=25 THEN GOSUB 556 
RETURN 
CALL SAY("UHOH. THAT IS NOT THE RIGHT ANSWER." 
):: RETURN 
CALL SAY("SORRY, BUT THAT IS NOT RIGHT."):: RE 
TURN 
CALL SAY("NO, THAT IS NOT RIGHT."):: RETURN 
A=V14+V2 :: IF A>5@ THEN Al=A-59 ELSE IF A>25 T 
HEN Al=A~25 
RIGHT=RIGHT+1 
DISPLAY AT(8,16):"** RIGHT **" 
ON 1+INT(RND*3)GOSUB 810,820,836 
CALL SAY("THE CORRECT ANSWER IS") 
IF A>5@ THEN GOSUB 598 ELSE IF A>25 THEN GOSUB 
5768 
IF A<=25 THEN GOSUB 556 
GOSUB 1174 
RETURN 
CALL SAY("VERY GOOD. YOU GOT IT RIGHT."):: RE 
TURN 
CALL SAY("THAT IS RIGHT"):: RETURN 
CALL SAY("THAT IS EXACTLY RIGHT."):: RETURN 
S1=0 :: S$2=0 
FOR SL=198 TO V1 STEP 18 
S$l=slt+l 
NEXT SL 
S2=V1-(S1*10):: SC2=48+S2 
IF S1=8 THEN SC1=32 ELSE SC1=48+51 
CALL SPRITE(#1,SC1,2,80,176,#2,SC2,2,88,192) 
Sl1=6 :: S2=0 
FOR SL=19 TO V2 STEP 18 
Sl=sl+l 
NEXT SL 
$2=V2-(S1*18):: SC2=48+S2 
IF S1=0 THEN SC1=32 ELSE SC1=48+S1 
CALL SPRITE(#3,SC1,2,112,176,#4,SC2,2,112,192) 
CALL SPRITE(#5,43,2,112,168) 
RETURN 
S1=68 :: S$2=0 
FOR SL=18 TO V1+V2 STEP 18 
$l=sl+l 
NEXT SL 
$2=(V1+V2)-(S1*18):: SC2=48+S2 
IF S1=@ THEN SC1=32 ELSE SC1=48+S1 
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1969 


1876 
1686 
1898 
1196 
1119 
1126 


11390 
1149 


1156 
1168 
1176 
1186 
1196 
1260 
1210 
1226 
1238 
1246 
1256 
1260 
12768 
1286 
1296 
1300 
1310 
1326 
1336 
1349 
1356 
1360 
1379 
1380 
1398 
1460 
1416 
1426 
1430 
1446 
1456 
1469 
1476 
1488 
1499 
1500 
1519 


CALL SPRITE(#6,SC1,2,144,176,#7,SC2,2,144,192 


) 
RETURN 


CALL SAY("YOU ARE DOING VERY WELL.") 


RETURN 


CALL SAY("YOU ARE DOING VERY GOOD WORK. ") 


RETURN 
CALL SAY("YOU HAVE NINE RIGHT. ONLY ONE MORE 
TO GO.") 
RETURN 


CALL SAY("YOU GOT ALL TEN PROBLEMS RIGHT. 


U MUST BE A COMPUTER. ") 
FOR D=l1 TO 708 :: NEXT D 
RETURN 

ROW=ROW-8 

CALL PATTERN (#10,113) 
CALL LOCATE( #18, ROW,COL) 
FOR D=1 TO 19 :: NEXT D 
CALL PATTERN(#19,112) 
RETURN 


ROW=ROW-8 :: CALL LOCATE (#18, ROW,COL) 


FOR L=1 TO 18 
FOR L2=8 To 1 
CALL PATTERN (#10,112+(L2*2) ) 

CALL LOCATE( #19, ROW- (L2*8), COL) 


NEXT 


L2 


FOR D=1 TO 48 :: NEXT D 


NEXT 
CALL 


L 
LOCATE ( #18, ROW, COL) 


RETURN 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


SAY ("ZERO"):: RETURN 
SAY ("ONE"):: RETURN 
SAY ("TWO"):: RETURN 


SAY ("THREE"): : RETURN 


SAY ("FOUR"): 
SAY ("FIVE"): 
SAY ("SIX"):: RETURN 


w 
| 
| 
G 
w 
z 


SAY ("SEVEN"):: RETURN 
SAY ("EIGHT"):: RETURN 


SAY ("NINE"):: RETURN 
SAY ("TEN"):: RETURN 

SAY ("ELEVEN"): : RETU 
SAY ("TWELVE"): : RETU 


RN 
RN 


SAY ("THIRTEEN"): : RETURN 
SAY ("FOURTEEN"): : RETURN 
SAY ("FIFTEEN"):: RETURN 
SAY ("SIX TEEN"):: RETURN 


SAY ("SEVEN TEEN"):: 
SAY ("EIGHT TEEN"):: 


RETURN 
RETURN 


YO 
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15260 CALL SAY("NINE TEEN"):: RETURN 
1538 CALL SAY("TWENTY"):: RETURN 

1548 CALL SAY("TWENTY ONE"):: RETURN 
155@ CALL SAY("TWENTY TWO"):: RETURN 
1568 CALL SAY("TWENTY THREE"):: RETURN 
1576 CALL SAY("TWENTY FOUR"):: RETURN 
1588 CALL SAY( "TWENTY FIVE"):: RETURN 
1598 CALL SAY("TWENTY SIX"):: RETURN 
1600 CALL SAY("TWENTY SEVEN"):: RETURN 
1618 CALL SAY("TWENTY EIGHT"):: RETURN 
1620 CALL SAY("TWENTY NINE"):: RETURN 
1638 CALL SAY("THIRTY"):: RETURN 

1648 CALL SAY("THIRTY ONE"):: RETURN 
165@ CALL SAY("THIRTY TWO"):: RETURN 
1668 CALL SAY("THIRTY THREE"):: RETURN 
1678 CALL SAY("THIRTY FOUR"):: RETURN 
1688 CALL SAY("THIRTY FIVE"):: RETURN 
1699 CALL SAY("THIRTY SIX"):: RETURN 
1700 CALI, SAY("THIRTY SEVEN"):: RETURN 


1718 CALIL SAY("THIRTY EIGHT"):: RETURN 
1726 CALL SAY("THIRTY NINE"):: RETURN 
1738 CALL SAY("FORTY"):: RETURN 

1748 CALL SAY("FORTY ONE"):: RETURN 
175@ CALL SAY("FORTY TWO"):: RETURN 
1768 CALL SAY("FORTY THREE"):: RETURN 
1778 CALL SAY("FORTY FOUR"):: RETURN 
1788 CALL SAY("FORTY FIVE"):: RETURN 
1796 CALL SAY("“FORTY SIX"):: RETURN 
1880 CALL SAY("FORTY SEVEN"):: RETURN 
1818 CALI SAY("PORTY EIGHT"):: RETURN 
1826 CALL SAY("“FORTY NINE"):: RETURN 
1838 CALL SAY("FIFTY"):: RETURN 

1840 CALL SAY("FIFTY ONE"):: RETURN 
1850 CALL SAY("FIFTY TWO"):: RETURN 
186@ CALL SAY("FIFTY THREE"):: RETURN 
1870 CALL SAY("“FIFTY FOUR"):: RETURN 
1889 CALL SAY("FIFTY FIVE"):: RETURN 
1890 CALL SAY("FIFTY SIX"):: RETURN 
1906 CALL SAY("FIFTY SEVEN"):: RETURN 
191@ CALL SAY("FIFTY EIGHT"):: RETURN 
1926 CALL SAY("FIFTY NINE"):: RETURN 
1930 CALL SAY("SIXTY"):: RETURN 

1949 CALL SAY("SIXTY ONE"):: RETURN 
1958 CALL SAY("SIXTY TWO"):: RETURN 
1968 CALL SAY("SIXTY THREE"):: RETURN 
1978 CALL SAY("SIXTY FOUR"):: RETURN 
1988 CALL SAY("SIXTY FIVE"):: RETURN 
1998 CALL SAY("SIXTY SIX"):: RETURN 
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2000 CALL SAY( "SIXTY SEVEN"):: RETURN 
2016 CALL SAY("SIXTY EIGHT"):: RETURN 
26028 CALL SAY("SIXTY NINE"):: RETURN 
2630 CALL SAY("SEVENTY"):: RETURN 


Slot Machine 

If you have a streak of gambler in you, you'll like this pro- 
gram. It turns your TI into a Las Vegas slot machine. You start 
out with $25, but don’t be surprised at how quickly it dis- 
appears. This program uses the combinations found on a typi- 
cal slot machine, and the payoff combinations are displayed 
on the screen. Good luck! 


How Slot Machine Works 

Line(s) 

100 Clear the screen and seed the random number 
generator. 

110 Set the screen color to black. 


120-200 Define the character patterns used in the programs. 
Images on the wheel will be double-sized unmagnified 


sprites. 
210 Set the character pattern colors. 
220 Read the ASCII code and color code for the seven pos- 


sible patterns into PAT and COL arrays. 


230-250 Read the combinations for each wheel of the slot 
machine into the W array. Each wheel consists of 19 
patterns (oranges, lemons, bars, etc.). The actual infor- 
mation read into the array is a number which can be 
used as a subscript for the PAT and COL arrays. 

260-280 Read the winning combinations (groups of three) into 
the PAY array. 

290 Read the payoff odds into the ODDS array for each of 
the winning combinations. 


300-470 Draw the slot machine, payoff board, and tote board. 


480 Initialize tote board variables. If you want to start out 
with more than $25 dollars (or coins), you change the 
ONHAND variable to the desired amount. 


490-510 Set the initial patterns on the three slot machine 
wheels. 


520-540 Display the current tote board status. 
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550-590 Check for press of the space bar to start the wheels in 


motion. Line 590 picks a random starting position for 
each of the three wheels. 


600-720 Put the wheels in motion. The next figure in each 


wheel is displayed in a rolling fashion. When any 
wheel reaches 19, it is wrapped around to 1. 


730 Invoke routine to see if you won. 
740 Go back and do it all again. 
750-880 Determine winnings, if any. Display won or lost mes- 


sages and update the appropriate counters. If the 
amount on-hand (line 870) reaches 0, then the game is 
over. 


890-910 End of game. 
920-970 DATA statements containing wheel information. Line 


920 identifies the ASCII code numbers and color codes 
for the seven figures appearing on the wheels. Lines 
930-950 identify the 19 figures on each of the three 
wheels, Line 960 identifies the winning combinations, 
and line 970 identifies the payoff odds for each win- 
ning combination. 


Program 7-7. Slot Machine 


196 
119 
126 
138 
146 
156 
166 
179 
180 
1908 
206 


216 


206 


CALL CLEAR :: RANDOMIZE 

CALL SCREEN(2) 

DIM W(3,19),PAY(19,3),ODDS(19) 

CALL CHAR(4@,"3C3C3C3C3C3C3C3C"):: CALL CHAR(9 
6, "FFFFFFFFFFFFFFFF ") 

CALL CHAR(19@, "“O@@OGGOOOFFI1LA2ZC48891LA2ZFFUGHIBGG 
OOOGOUSGOFF112345891123FFOGOG GGG") 

CALL CHAR(104, "0093971 F3F7FFFFFFFFF7F3F1F07930 
SO9S9COEOPSFCFEFFFFFFFFFEFCF8EQ@C 806") 

CALL CHAR(198, "GOGOSOOOFFSEBSSDB4B58DFFODGGGGO 
POSBSSOSOF FEC 3ADAD2 3ABADFFEOOLG OGD") 

CALL CHAR(112, "@307O0F3F3F7FFFFFFFFF7F3F3FQFO7 
3COEQOFOFCFCFEFFFFFFFFFEFCFCF9E 0Cd") 

CALL CHAR(116, "0193050911 3878FCFC7831630707038 
18949291 9688C9EBFBF9ESCCOEGEDC B88") 

CALL CHAR(120, "@10193070F1F1 F1F3F3F3F3F3F7F7FF 
F8O80COEGFOFSFSFSFCFCFCFCFCFEFEFF") 

CALL CHAR(124, "@09061071F7FFFFF7F1F97019990082 
G0 89COFOFCFFFFFFFFFCFOCS8O900 OBO") 

CALL COLOR(2,16,1,3,16,1,4,16,1,5,16,1,6,16,1, 
7,16,1,8,16,1,9,15,1,11,7,1) 
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FOR L=l TO 7 
FOR L=1 TO 3 
READ W(L,L2) 
NEXT L2 :: NEXT L 

FOR L=1 TO 18 :: FOR L2=1 TO 3 

READ PAY(L,L2) 

NEXT L2 :: NEXT L 

FOR L=1 TO 190 :: READ ODDS(L):: NEXT L 

CALL VCHAR(1,14,40,24) 

FOR L=l1 TO 7 

CALL HCHAR(L,16,96,14) 

NEXT L 

FOR L=3 TO 4 

CALL HCHAR(L,18,32,2):: CALL HCHAR(L,22,32,2): 
: CALL HCHAR(L, 26, 32,2) 

NEXT L 

CALL MAGNIFY(3) 

FOR L=1 TO 8 :: FOR L2=1 TO 3 

CALL SPRITE(#L2+((L-1)*3),PAT(PAY(L,L2)),COL(P 
AY(L,L2)),16+(L*16),8+(L2*16) ) 

NEXT L2 

DISPLAY AT(4+(L*2),9):USING "###":ODDS(L); 
NEXT L 

DISPLAY AT(21,2):CHR$(116);CHRS(118);CHR$ (116) 
7CHR$ (118); 

DISPLAY AT(22,2):CHR$(117);CHR$(119);CHR$(117) 
7CHRS(119);"{5 SPACES]5"; 

DISPLAY AT(23,2):CHR$(116);CHR$(118); 

DISPLAY AT(24,2):CHR$(117);CHRS$(119);" 

{7 SPACES}2"; 

DISPLAY AT(12,15):"ON-HAND";:: DISPLAY AT(14,1 
5): "WAGERED";:: DISPLAY AT(16,15): "WON"; 

WON=8 :: WAGERED=08 :: ONHAND=25 

FOR L=1 TO 3 :: SEL=1+INT(RND*7) 

4 SPRITE(#25+L,PAT(SEL),COL(SEL),17,105+(L* 
32 

NEXT L 

DISPLAY AT(2,2):"**PAYOFF**"; 

DISPLAY AT(16,15):"****MOMNEY****";32 DISPLAY A 
T(12,23):USING "#####":ONHAND;:: DISPLAY AT(14 
,23):USING "#####":WAGERED; 

DISPLAY AT(16,23):USING "#####":WON; 

DISPLAY AT(22,14):"PRESS SPACEBAR"; 

CALL KEY(3,K,S):: IF K<>32 THEN 569 

CALL HCHAR(22,16,32,14) 

ONHAND=ONHAND~-1 :: WAGERED=WAGERED+1 
W1=1+INT(RND*19):: W2=1+INT(RND*19):: W3=1+INT 
(RND*19) 


READ PAT(L),COL(L):: NEXT L 
FOR L2=1 TO 19 
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FOR L=l TO 40 

IF L>24 THEN 656 

Wl=Wl+l :: IF Wl>19 THEN wWl=1 

a SPRITE(#26,PAT(W(1,W1)),COL(W(1,W1)),17,1 
37 

CALL SOUND(-58,500,7,-7,@) 

IF L>33 THEN 690 

W2=W2+l :: IF w2>19 THEN w2=1 

oe SPRITE(#27,PAT(W(2,W2)),COL(W(2,W2)),17,1 

69 

CALL SOUND(-50,586,7,-7,2) 

W3=W3+1 :: IF W3>19 THEN w3=1 

re SPRITE (#28, PAT(W(3,W3)),COL(W(3,W3)),17,2 

G1 

CALL SOUND(-58,580,7,-7,9) 

NEXT L 

GOSUB 752 

GOTO 5308 

WINNINGS=0 

IF wW(1,W1l)=5 THEN IF wW(2,W2)=5 THEN WINNINGS=5 
ELSE WINNINGS=2 

FOR L=1 TO 8 

IF W(1,W1)=PAY(L,1)AND W(2,W2)=PAY(L,2)AND w(3 
,W3)=PAY(L,3)THEN WINNINGS=ODDS(L) 

NEXT L 

IF WINNINGS=8 THEN 85@ 

DISPLAY AT(22,15):"** WINNER **"; 

CALL sli aa CALL SOUND(1509 
,-6,0 

WON=WON+WINNINGS :: ONHAND=ONHAND+WINNINGS 

RETURN 

DISPLAY AT(22,14):"** YOU LOSE **"; 

FOR L=1 TO 588 :: NEXT L 

IF ONHAND=8 THEN 890 

RETURN 

DISPLAY AT(22,15):"MONEY GONE" :: DISPLAY AT(2 
4,15):"GAME OVER" 


DISPLAY AT(12,23):USING "#####":ONHAND;:: DISP 
LAY AT(14,23):USING "#####":WAGERED;:: DISPLAY 
AT(16,23):USING "#####":WON;: 

GOTO 916 

DATA 100,3,194,14,1808,16,112,10,116,7,120,5,12 
4,12 

DATA 1,2,3,4,5,4,342¢300¢ 2545574453 524374,5 
DATA 1,6,2,6,5,6,5,6,3,6,3,6,5,6,5,4,5,6,3 
DATA 1,7,4,7)2, 7749 la 4e lg 2nd eG p 1p by dye le 4 
DATA 1,1,1,3,3,1,6,6,6,6,6,1,2,2,2,2,2,1,4,4,4 
74,4,1,5,5,9,5,8,8 

DATA 200,100,18,18,14,14,19,19,5,2 
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“Addition Climber” 
program 198-205 
“Air Defense” program 95-97 
allophone 161, 165, 168 
table 162-63 
“Allophone Number Lister” 
program 169 
“Allophone Stringer” 
program 171-72 
“Alphabet Invasion”’ 
program 184-90 
“American Siren” sound effect 145 
ASCII 14, 18, 32 
character code table 15 
character sets 25-26 
defined 9 
Assembler Language 10 
“Bach Prelude” program 138-43 
background color 26 
“Banzai Bunny” program 190-95 
bass 130-31 
“Bells” sound effect 146 
“Birds at Night” program 76-77 
bitmap mode 10 
“Blinky” program 35-37 
“Bomb and Explosion” sound 
effect 145-46 
CALL CHAR subprogram 18-19 
CALL CHARPAT subprogram 18 
CALL CLEAR subprogram 19 
CALL COINC subprogram 87, 
93-95, 102, 108 
CALL COLOR subprogram 25, 26, 


66 
CALL DELSPRITE subprogram 66 
CALL DISTANCE subprogram 87, 
97-99, 102 
CALL GCHAR subprogram 108, 109 
CALL HCHAR subprogram 27, 32, 
33 
CALL INIT subprogram 164 
CALL JOYST subprogram 71-72 
CALL KEY subprogram 72-75 
CALL LINK subprogram 164 
CALL LOAD subprogram 164 
CALL LOCATE subprogram 69-70 


CALL MAGNIFY subprogram 62-65 


CALL MOTION subprogram 70-71, 
75, 89 
CALL PATTERN subprogram 76 


CALL POSITION subprogram 87-89, 


93, 102, 108 
CALL SAY subprogram 153, 154 
CALL SCREEN subprogram 26, 52 
CALL SOUND subprogram 115-17, 
128, 131, 145, 146 
CALL SPGET subprogram 
153, 154 
CALL SPRITE subprogram 56-60 
example programs 60-65 
CALL VCHAR subprogram 27, 32 
character codes 15, 73 
changing 18 
character concatenation 33 
character definition 14-27 
character grid 13, 14, 16-18 
character set 25-26 
CHR function 19 
color codes 
table 25 
color monitor 6 
“COMPUTE! Cat” program 22-23 
“Computer” sound effect 144 
custom characters 18-27 
diagonals 30-33 
disk controller card 6 
disk drive 6 
DISPLAY AT statement 19, 20, 
24-25, 32, 33 
display mapping 54-56 
display planes 52-53 
“Dot Gobbler” program 77-80 
“European Siren” sound effect 145 
expression marks, musical 133 
Extended BASIC 3, 5, 149 
foreground color 26 
frequency (sound) 115 
graphics mode 10 
“Graph” program 43-48 
hexadecimal notation 16-17 
high-resolution graphics 40-48 
BASIC and 40 
“Histogram” program 28-30 
inflection codes 170 
joystick 6, 71-72 
“Kaleidoscope” program 67-69 
key-unit 73 
linear predictive coding (speech 
synthesis) 149 
“Meteors” program 99-102 


“Mimic” program 175-79 
“Morse Code” sound effect 144 
“Mouse Maze” program 103-12 
movement, sprite 51, 69-75 
multicharacter shapes 20-22 
multicolor mode 10 


“Music Demo 1” program 128-30 
“Music Demo 2” program 131-33 
“Music Demo 3” program 134-38 
music theory 117-23 

noise 116 

“Note Tutor” program 123-25 


number sign, CALL SAY and 
“Octaves” program 123 
pattern color table 54 
pattern generator table 54 
pattern identifier 18 
pattern name table 54 
Peripheral Expansion Box 6 
phoneme 161 
PHP-1500 speech synthesizer (see 
speech synthesizer) 
pitch 165 
frequency chart 
pixel 13, 40,51 
defined 9 
“Plane” program 33-35 
plus sign, CALL SAY and 
resolution, defined 9 
“Rocket” sound effect 
“Shooting Gallery” 
slope 165 
“Slot Machine” program 205-8 
sound 


154 


166 


154 


144 


program 179-84 


defined 115 

examples 117 
sound effects 143-46 
Speak and Spell products 149 
speech synthesis 5, 149-72 
speech synthesizer 149, 153 
split-keyboard mode 73-74 


sprite attribute table 54 
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“Sprite Chase” program 91-93 
sprite collisions 87-112 
speed and 102-3 
sprite color 66-67 
“Sprite Editor” program 80-83 
sprite generator table 54 
sprites 4, 51-83 
advantages of 51 
bitmap mode and 10 
changing 76 
deleting 66 
large 61-66 
moving 69-75 
“Talker” program 167 
“Tank Attack” program 37-40 
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tempo, programming 127 

text mode 10 

text-to-speech diskette 6, 149, 
161-72 

“3-D Shapes” program 41-42 

TI BASIC 3 

TI Extended BASIC 3 

TI screen 10-14 

TI text-to-speech diskette software (see 

text-to-speech diskette) 

TMS5200 speech synthesis chip 149 

TMS9918A video display processor 
(see VDP) 

tolerance, sprite collision and 93-94 


transparency 52 
VDP 52-54 
display planes and 52-53 
VDP RAM 54 
vibrational pattern (sound) 115 
vocabulary speech synthesizer 
expanding 155 
table 150-53 
volume 115, 116 
waveform 115 
“Word Maker’’ program 
“Zone Defender” program 
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156-61 
195-98 
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Quantity Title Price Total 
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COMPUTE"'s First Book of VIC Games $12.95" 
COMPUTE''s First Book of 64 $12.95" 
COMPUTE" First Book of Atari $12.95" 
COMPUTE"s Second Book of Atari $12.95" 
_______ COMPUTE''s First Book of Atari Graphics $412.95" 
COMPUTE''s First Book of Atari Games $12.95" 
Mapping The Atari $1495" 
Inside Atari DOS $19.95" 
The Atari BASIC Sourcebook $12.95° : 
Programmer'sReference Guide forll-99/4A $44,958" 
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* Add $2 shipping and handling Outside US add $5 a mail, $2 
surface mall 
+ Add $1 shippingand handling Outstde US add $5 au mail. $2 
surttace mail 
Please add shipping and handling for each book 
ordered. ee 


Total enclosed or to be charged. —__-- 


All orders must be prepaid (money order, check, or charge). All 
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(]Payment enclosed Please charge my: [] VISA [MasterCard 


[-] American Express Acc't. No. Expires / 
Name 


Address 


City State Zip 


Count 
Allow 4-5 weeks for delivery. 
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If you've enjoyed the articles in this book, you'll find the 
same style and quality in every monthly issue of COMPUTE! 
Magazine. Use this form to order your subscription to 
COMPUTE!. 


For Fastest Service, 
Call Our Toll-Free US Order Line 


800-334-0868 


In NC call 919-275-9809 


COMPUTE! 


P.O. Box 5406 
Greensboro, NC 27403 


My Computer Is: 
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Subscription rates outside the US: 
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[-] $72 Elsewhere/Air Mail 

(_] $30 International Surface Mail (lengthy, unreliable delivery) 
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Payment must be in US Funds drawn on a US Bank: International Money 
Order, or charge card. 


(J Payment Enclosed (J VISA 
(_] MasterCard [_) American Express 
Acct. No. Expires / 
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lf you've enjoyed the articles in this book, you'll find 
the same style and quality in every monthly issue of 
COMPUTE!’s Gazette for Commodore. 


For Fastest Service 
Call Our Toll-Free US Order Line 


800-334-0868 
In NC call 919-275-9809 


COMPUTE!’s GAZE PPRE 


P.O. Box 5406 
Greensboro, NC 27403 


My computer is: 
[] Commodore 64 [JVIC-20 [_] Other 
Ot 02 tk) 
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(_] $54 Three Year US Subscription 


Subscription rates outside the US: 
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Order, or charge card. Your subscription will begin with the next avail- 
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Acct. No. Expires / 
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: Aer you sicited i your TI’ ‘s sraphice? C Diet bys Se 
diversity of sound? Left speechless by the idea of san : 

_ thesized speech—and baffled by how it’s alldone?_ 

Then you need COMPUTE!’ Guide to TI Sound and Graph- = 

_ ics. Using dozens of examples and clear, nontechnical explana- 

tions, it introduces you to the tremendous sound and ose - 

capabilities of your TI home computer. | 


Here are just a few of the things you'll find i in this book; 


© Fast and exciting arcade-style games 
@ Challenging educational programs, including 0 one : that 
3 actually talks to your child ee 0 
_ @ Clear instructions on using sprite graphics. 
@ A versatile sprite editor | 


_ @ Easy-to-use guidelines for creating custom Souad effects Sse 


© Dozens of valuable graphics and sound subroutines — 

e Impressive musical subroutines and demonstrations _ 
e A sophisticated speech program that uses TI’s speech 
synthesis module and text-to-speech be to speak — ae 

_ virtually any word that you type in | 3 : 


“Whether. you are a beginning TI user or an experienced | 
programmer, COMPUTE!'s Guide to TI Sound and ee is a 
book you'll refer to. again and again. 3 | 


ISBN 0-942386-46-9 


